;;;; Generated on 10/20/2021 at 09:40:01 (UTC+10).

(COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0)
                      COMMON-LISP:SAFETY COMMON-LISP:DEBUG
                      COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM (COMMON-LISP:INLINE %%SLANEG %SLANEG %%SLASY2
                      %SLASY2 %%DPOTRS %DPOTRS %%ZLA_SYAMV %ZLA_SYAMV
                      %%CLARF %CLARF %%DGERQF %DGERQF %%ZGBSVXX
                      %ZGBSVXX %%CLASYF_RK %CLASYF_RK %%DORBDB %DORBDB
                      %%ZHPSVX %ZHPSVX %%DLASWLQ %DLASWLQ %%ILASLR
                      %ILASLR %%DLA_SYAMV %DLA_SYAMV %%SLA_GBAMV
                      %SLA_GBAMV %%ZTFTTR %ZTFTTR %%SSTEVX %SSTEVX
                      %%DLA_GBAMV %DLA_GBAMV %%DLAPMT %DLAPMT %%SLAPY2
                      %SLAPY2 %%DTPMQRT %DTPMQRT %%CUNGQR %CUNGQR
                      %%CSYRFS %CSYRFS %%DSYGV_2STAGE %DSYGV_2STAGE
                      %%DSTERF %DSTERF %%DGELQF %DGELQF %%SPBRFS
                      %SPBRFS %%ZGGES3 %ZGGES3 %%ZLA_GBRFSX_EXTENDED
                      %ZLA_GBRFSX_EXTENDED %%CSYTRF_RK %CSYTRF_RK
                      %%DLABRD %DLABRD %%SLASQ6 %SLASQ6 %%SLALSA
                      %SLALSA %%ZHBEV_2STAGE %ZHBEV_2STAGE %%STPMQRT
                      %STPMQRT %%CLASWP %CLASWP %%DSYTRD %DSYTRD
                      %%ZLARF %ZLARF %%CUNMRZ %CUNMRZ %%ZPBTRS %ZPBTRS
                      %%ZLA_WWADDW %ZLA_WWADDW %%ZUNCSD2BY1 %ZUNCSD2BY1
                      %%ZSYSV_ROOK %ZSYSV_ROOK %%SSPCON %SSPCON
                      %%DLASD1 %DLASD1 %%ZGEQR %ZGEQR %%ZSYTRI2X
                      %ZSYTRI2X %%ZUNBDB5 %ZUNBDB5
                      %%DLA_GBRFSX_EXTENDED %DLA_GBRFSX_EXTENDED
                      %%SGECON %SGECON %%ZSYTRI_ROOK %ZSYTRI_ROOK
                      %%DPPSVX %DPPSVX %%ZUPMTR %ZUPMTR %%DLAQP2
                      %DLAQP2 %%SGGLSE %SGGLSE %%CPPSVX %CPPSVX
                      %%DGSVJ0 %DGSVJ0 %%CGEEQU %CGEEQU %%ZLASSQ
                      %ZLASSQ %%STGSYL %STGSYL %%DSYCONVF %DSYCONVF
                      %%DSBEVD %DSBEVD %%ZHERFSX %ZHERFSX %%ZTGEX2
                      %ZTGEX2 %%SLAG2 %SLAG2 %%CHESVX %CHESVX
                      %%SSYEVR_2STAGE %SSYEVR_2STAGE %%DPTRFS %DPTRFS
                      %%DSYGST %DSYGST %%ZPPSV %ZPPSV %%DLAIC1 %DLAIC1
                      %%SLASWP %SLASWP %%CLA_LIN_BERR %CLA_LIN_BERR
                      %%ILAUPLO %ILAUPLO %%SSBEVD_2STAGE %SSBEVD_2STAGE
                      %%ZGETRF %ZGETRF %%SPPTRF %SPPTRF %%ZSYTRS_3
                      %ZSYTRS_3 %%CPOEQU %CPOEQU %%ZLATRD %ZLATRD
                      %%ZGBEQUB %ZGBEQUB %%DLANSP %DLANSP %%ZLAQHP
                      %ZLAQHP %%CLA_PORCOND_X %CLA_PORCOND_X
                      %%DSYTF2_ROOK %DSYTF2_ROOK %%CSYTRS_AA_2STAGE
                      %CSYTRS_AA_2STAGE %%DTRTI2 %DTRTI2 %%CHEGVD
                      %CHEGVD %%STRSEN %STRSEN %%CHB2ST_KERNELS
                      %CHB2ST_KERNELS %%STFTRI %STFTRI %%SGESVD %SGESVD
                      %%SGTTS2 %SGTTS2 %%ZTFTTP %ZTFTTP %%CUNM2R
                      %CUNM2R %%ZGBTF2 %ZGBTF2 %%CSYCONV %CSYCONV
                      %%SSYCON_3 %SSYCON_3 %%ZPOTRF %ZPOTRF %%CHETRI_3
                      %CHETRI_3 %%SLANTR %SLANTR %%DORGHR %DORGHR
                      %%SGBBRD %SGBBRD %%DGEBAL %DGEBAL %%ZTREVC
                      %ZTREVC %%CTGSJA %CTGSJA %%DLANTP %DLANTP
                      %%DGEJSV %DGEJSV %%CUNMRQ %CUNMRQ %%SGSVJ1
                      %SGSVJ1 %%CPBSTF %CPBSTF %%CTGSNA %CTGSNA
                      %%CGBRFSX %CGBRFSX %%SSYTRI_3X %SSYTRI_3X
                      %%DORMRQ %DORMRQ %%SSBEV %SSBEV %%CGEJSV %CGEJSV
                      %%DLALSA %DLALSA %%SPTTRS %SPTTRS %%DTGSJA
                      %DTGSJA %%ZLAHQR %ZLAHQR %%DSTEIN %DSTEIN
                      %%ZGGBAL %ZGGBAL %%SLANTB %SLANTB %%DTRTTP
                      %DTRTTP %%CLABRD %CLABRD %%DSYCONV %DSYCONV
                      %%ZGEEQUB %ZGEEQUB %%SLASYF_AA %SLASYF_AA
                      %%DGERFSX %DGERFSX %%SGTSV %SGTSV %%SORMR3
                      %SORMR3 %%ZLAUNHR_COL_GETRFNP
                      %ZLAUNHR_COL_GETRFNP %%DLADIV %DLADIV %%CSYTRF_AA
                      %CSYTRF_AA %%SLASD3 %SLASD3 %%SLASSQ %SLASSQ
                      %%ZUNGL2 %ZUNGL2 %%DLASD8 %DLASD8 %%ZSTEQR
                      %ZSTEQR %%CUNMQR %CUNMQR %%SPFTRS %SPFTRS
                      %%ZLA_PORCOND_X %ZLA_PORCOND_X %%ZLAMSWLQ
                      %ZLAMSWLQ %%CTBRFS %CTBRFS %%ZUNMHR %ZUNMHR
                      %%CSYTRI2X %CSYTRI2X %%DLAED1 %DLAED1 %%DLARRA
                      %DLARRA %%ZGBRFSX %ZGBRFSX %%SGEQRT3 %SGEQRT3
                      %%DPTSVX %DPTSVX %%SLAGTS %SLAGTS %%ZBBCSD
                      %ZBBCSD %%DLARZT %DLARZT %%ZTREVC3 %ZTREVC3
                      %%CGEQRT3 %CGEQRT3 %%ZPOTF2 %ZPOTF2 %%CHERFS
                      %CHERFS %%ZSYCON_3 %ZSYCON_3 %%CHPTRI %CHPTRI
                      %%ZHBEVD %ZHBEVD %%CGTSVX %CGTSVX %%CHETF2_ROOK
                      %CHETF2_ROOK %%SLAIC1 %SLAIC1 %%DLASDA %DLASDA
                      %%ZHETRF_RK %ZHETRF_RK %%ZPBSV %ZPBSV %%ZGBSVX
                      %ZGBSVX %%CHEEVX %CHEEVX %%CLA_PORCOND_C
                      %CLA_PORCOND_C %%CGBTRF %CGBTRF %%SPBCON %SPBCON
                      %%CHETRS2 %CHETRS2 %%SSYGV %SSYGV %%CPOTRS
                      %CPOTRS %%SSBTRD %SSBTRD %%ZLASYF_ROOK
                      %ZLASYF_ROOK %%DSYTRS_AA %DSYTRS_AA %%DSYTRS
                      %DSYTRS %%CGGRQF %CGGRQF %%DLALS0 %DLALS0
                      %%SLASD7 %SLASD7 %%DTRSYL %DTRSYL %%SSYGVX
                      %SSYGVX %%CSPR %CSPR %%CHPTRF %CHPTRF %%DGERQ2
                      %DGERQ2 %%CGEMQR %CGEMQR %%ZSPSVX %ZSPSVX
                      %%SSTEBZ %SSTEBZ %%SORCSD2BY1 %SORCSD2BY1
                      %%SSBGVX %SSBGVX %%SLARFX %SLARFX %%ZSYRFS
                      %ZSYRFS %%CLANGE %CLANGE %%SSYTRS_ROOK
                      %SSYTRS_ROOK %%ZPBSVX %ZPBSVX %%DGBTRS %DGBTRS
                      %%SLARTG %SLARTG %%CPOTF2 %CPOTF2 %%ZPSTRF
                      %ZPSTRF %%DGEQP3 %DGEQP3 %%SLAQGE %SLAQGE
                      %%ZUNG2L %ZUNG2L %%ZUNMRZ %ZUNMRZ %%SPOSV %SPOSV
                      %%SSYEVD_2STAGE %SSYEVD_2STAGE %%DGETF2 %DGETF2
                      %%SLARRA %SLARRA %%SLANV2 %SLANV2 %%SLAE2 %SLAE2
                      %%CSTEMR %CSTEMR %%DTPTRS %DTPTRS %%ZLARGV
                      %ZLARGV %%ZLALS0 %ZLALS0 %%CTREXC %CTREXC
                      %%SGGBAL %SGGBAL %%STPRFS %STPRFS %%CLANSB
                      %CLANSB %%SSPGST %SSPGST %%DORGBR %DORGBR
                      %%CPPTRS %CPPTRS %%SLA_GBRFSX_EXTENDED
                      %SLA_GBRFSX_EXTENDED %%ZPBEQU %ZPBEQU %%SLARTGP
                      %SLARTGP %%ZLAQSY %ZLAQSY %%ZTRSNA %ZTRSNA
                      %%ZGEBD2 %ZGEBD2 %%CLAGTM %CLAGTM %%CGELQT3
                      %CGELQT3 %%DSYEVR_2STAGE %DSYEVR_2STAGE %%ZHESVX
                      %ZHESVX %%SPOSVXX %SPOSVXX %%ZGELSS %ZGELSS
                      %%ILATRANS %ILATRANS %%CTFTTP %CTFTTP %%CPORFS
                      %CPORFS %%DLAEDA %DLAEDA %%CHPRFS %CHPRFS
                      %%SSYEQUB %SSYEQUB %%DGGBAL %DGGBAL %%STPQRT
                      %STPQRT %%ZGTSVX %ZGTSVX %%STBRFS %STBRFS
                      %%DSYTRI_3X %DSYTRI_3X %%SGTTRF %SGTTRF %%ZHBGV
                      %ZHBGV %%STRCON %STRCON))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLANEG "slaneg_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (LLD :FOREIGN-ADDRESS)
   (SIGMA :FOREIGN-ADDRESS) (PIVMIN :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS))
  :RETURNING :INT :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLANEG (N D LLD SIGMA PIVMIN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANEG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LLD)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1326 ':INT32)
                              (SIGMA-REF1329 ':FLOAT)
                              (PIVMIN-REF1330 ':FLOAT)
                              (R-REF1331 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1326 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF1329 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF1330 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF1331 :INT32) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF1327 D)
                                            (LLD-REF1328 LLD))
      (%%SLANEG N-REF1326 D-REF1327 LLD-REF1328 SIGMA-REF1329
       PIVMIN-REF1330 R-REF1331))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASY2 "slasy2_")
  ((LTRANL :FOREIGN-ADDRESS) (LTRANR :FOREIGN-ADDRESS)
   (ISGN :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS) (N2 :FOREIGN-ADDRESS)
   (TL :FOREIGN-ADDRESS) (LDTL :FOREIGN-ADDRESS) (TR :FOREIGN-ADDRESS)
   (LDTR :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (XNORM :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASY2
    (LTRANL LTRANR ISGN N1 N2 TL LDTL TR LDTR B LDB SCALE X LDX XNORM
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASY2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDTL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT XNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRANL-REF1332 ':INT32)
                              (LTRANR-REF1333 ':INT32)
                              (ISGN-REF1334 ':INT32)
                              (N1-REF1335 ':INT32) (N2-REF1336 ':INT32)
                              (LDTL-REF1338 ':INT32)
                              (LDTR-REF1340 ':INT32)
                              (LDB-REF1342 ':INT32)
                              (SCALE-REF1343 ':FLOAT)
                              (LDX-REF1345 ':INT32)
                              (XNORM-REF1346 ':FLOAT)
                              (INFO-REF1347 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANL-REF1332 :INT32) LTRANL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANR-REF1333 :INT32) LTRANR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF1334 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF1335 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF1336 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDTL-REF1338 :INT32) LDTL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDTR-REF1340 :INT32) LDTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1342 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF1343 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1345 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF1346 :FLOAT) XNORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1347 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((TL-REF1337 TL)
                                            (TR-REF1339 TR)
                                            (B-REF1341 B)
                                            (X-REF1344 X))
      (%%SLASY2 LTRANL-REF1332 LTRANR-REF1333 ISGN-REF1334 N1-REF1335
       N2-REF1336 TL-REF1337 LDTL-REF1338 TR-REF1339 LDTR-REF1340
       B-REF1341 LDB-REF1342 SCALE-REF1343 X-REF1344 LDX-REF1345
       XNORM-REF1346 INFO-REF1347))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPOTRS "dpotrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPOTRS (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1349 ':INT32)
                              (NRHS-REF1350 ':INT32)
                              (LDA-REF1352 ':INT32)
                              (LDB-REF1354 ':INT32)
                              (INFO-REF1355 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1349 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1350 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1352 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1354 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1355 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1351 A)
                                            (B-REF1353 B))
      (%%DPOTRS UPLO N-REF1349 NRHS-REF1350 A-REF1351 LDA-REF1352
       B-REF1353 LDB-REF1354 INFO-REF1355))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_SYAMV "zla_syamv_")
  ((UPLO :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_SYAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYAMV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF1356 ':INT32)
                              (N-REF1357 ':INT32)
                              (ALPHA-REF1358 ':DOUBLE)
                              (LDA-REF1360 ':INT32)
                              (INCX-REF1362 ':INT32)
                              (BETA-REF1363 ':DOUBLE)
                              (INCY-REF1365 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF1356 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1357 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF1358 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1360 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1362 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF1363 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF1365 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1359 A)
                                            (X-REF1361 X)
                                            (Y-REF1364 Y))
      (%%ZLA_SYAMV UPLO-REF1356 N-REF1357 ALPHA-REF1358 A-REF1359
       LDA-REF1360 X-REF1361 INCX-REF1362 BETA-REF1363 Y-REF1364
       INCY-REF1365))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARF "clarf_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (INCV :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARF (SIDE M N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1367 ':INT32) (N-REF1368 ':INT32)
                              (INCV-REF1370 ':INT32)
                              (TAU-REF1371
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF1373 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1367 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1368 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF1370 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF1371
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF1373 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF1369 V)
                                            (C-REF1372 C)
                                            (WORK-REF1374 WORK))
      (%%CLARF SIDE M-REF1367 N-REF1368 V-REF1369 INCV-REF1370
       TAU-REF1371 C-REF1372 LDC-REF1373 WORK-REF1374))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGERQF "dgerqf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGERQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERQF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1375 ':INT32) (N-REF1376 ':INT32)
                              (LDA-REF1378 ':INT32)
                              (LWORK-REF1381 ':INT32)
                              (INFO-REF1382 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1375 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1376 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1378 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1381 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1382 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1377 A)
                                            (TAU-REF1379 TAU)
                                            (WORK-REF1380 WORK))
      (%%DGERQF M-REF1375 N-REF1376 A-REF1377 LDA-REF1378 TAU-REF1379
       WORK-REF1380 LWORK-REF1381 INFO-REF1382))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGBSVXX "zgbsvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (RPVGRW :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGBSVXX
    (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B LDB X
     LDX RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
     NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBSVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1385 ':INT32) (KL-REF1386 ':INT32)
                              (KU-REF1387 ':INT32)
                              (NRHS-REF1388 ':INT32)
                              (LDAB-REF1390 ':INT32)
                              (LDAFB-REF1392 ':INT32)
                              (LDB-REF1398 ':INT32)
                              (LDX-REF1400 ':INT32)
                              (RCOND-REF1401 ':DOUBLE)
                              (RPVGRW-REF1402 ':DOUBLE)
                              (N_ERR_BNDS-REF1404 ':INT32)
                              (NPARAMS-REF1407 ':INT32)
                              (INFO-REF1411 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1385 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF1386 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF1387 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1388 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1390 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF1392 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1398 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1400 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1401 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF1402 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF1404 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF1407 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1411 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1389 AB)
                                            (AFB-REF1391 AFB)
                                            (IPIV-REF1393 IPIV)
                                            (R-REF1395 R)
                                            (C-REF1396 C)
                                            (B-REF1397 B)
                                            (X-REF1399 X)
                                            (BERR-REF1403 BERR)
                                            (ERR_BNDS_NORM-REF1405
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF1406
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF1408 PARAMS)
                                            (WORK-REF1409 WORK)
                                            (RWORK-REF1410 RWORK))
      (%%ZGBSVXX FACT TRANS N-REF1385 KL-REF1386 KU-REF1387
       NRHS-REF1388 AB-REF1389 LDAB-REF1390 AFB-REF1391 LDAFB-REF1392
       IPIV-REF1393 EQUED R-REF1395 C-REF1396 B-REF1397 LDB-REF1398
       X-REF1399 LDX-REF1400 RCOND-REF1401 RPVGRW-REF1402 BERR-REF1403
       N_ERR_BNDS-REF1404 ERR_BNDS_NORM-REF1405 ERR_BNDS_COMP-REF1406
       NPARAMS-REF1407 PARAMS-REF1408 WORK-REF1409 RWORK-REF1410
       INFO-REF1411))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLASYF_RK "clasyf_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLASYF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASYF_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1413 ':INT32) (NB-REF1414 ':INT32)
                              (KB-REF1415 ':INT32)
                              (LDA-REF1417 ':INT32)
                              (LDW-REF1421 ':INT32)
                              (INFO-REF1422 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1413 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF1414 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1415 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1417 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF1421 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1422 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1416 A)
                                            (E-REF1418 E)
                                            (IPIV-REF1419 IPIV)
                                            (W-REF1420 W))
      (%%CLASYF_RK UPLO N-REF1413 NB-REF1414 KB-REF1415 A-REF1416
       LDA-REF1417 E-REF1418 IPIV-REF1419 W-REF1420 LDW-REF1421
       INFO-REF1422))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORBDB "dorbdb_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIGNS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X12 :FOREIGN-ADDRESS) (LDX12 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (X22 :FOREIGN-ADDRESS) (LDX22 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (TAUQ2 :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORBDB
    (TRANS SIGNS M P Q X11 LDX11 X12 LDX12 X21 LDX21 X22 LDX22 THETA
     PHI TAUP1 TAUP2 TAUQ1 TAUQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X12)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X22)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1425 ':INT32) (P-REF1426 ':INT32)
                              (Q-REF1427 ':INT32)
                              (LDX11-REF1429 ':INT32)
                              (LDX12-REF1431 ':INT32)
                              (LDX21-REF1433 ':INT32)
                              (LDX22-REF1435 ':INT32)
                              (LWORK-REF1443 ':INT32)
                              (INFO-REF1444 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1425 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1426 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF1427 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF1429 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF1431 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF1433 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF1435 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1443 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1444 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF1428 X11)
                                            (X12-REF1430 X12)
                                            (X21-REF1432 X21)
                                            (X22-REF1434 X22)
                                            (THETA-REF1436 THETA)
                                            (PHI-REF1437 PHI)
                                            (TAUP1-REF1438 TAUP1)
                                            (TAUP2-REF1439 TAUP2)
                                            (TAUQ1-REF1440 TAUQ1)
                                            (TAUQ2-REF1441 TAUQ2)
                                            (WORK-REF1442 WORK))
      (%%DORBDB TRANS SIGNS M-REF1425 P-REF1426 Q-REF1427 X11-REF1428
       LDX11-REF1429 X12-REF1430 LDX12-REF1431 X21-REF1432
       LDX21-REF1433 X22-REF1434 LDX22-REF1435 THETA-REF1436
       PHI-REF1437 TAUP1-REF1438 TAUP2-REF1439 TAUQ1-REF1440
       TAUQ2-REF1441 WORK-REF1442 LWORK-REF1443 INFO-REF1444))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHPSVX "zhpsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHPSVX
    (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR WORK
     RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1447 ':INT32)
                              (NRHS-REF1448 ':INT32)
                              (LDB-REF1453 ':INT32)
                              (LDX-REF1455 ':INT32)
                              (RCOND-REF1456 ':DOUBLE)
                              (INFO-REF1461 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1447 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1448 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1453 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1455 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1456 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1461 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF1449 AP)
                                            (AFP-REF1450 AFP)
                                            (IPIV-REF1451 IPIV)
                                            (B-REF1452 B)
                                            (X-REF1454 X)
                                            (FERR-REF1457 FERR)
                                            (BERR-REF1458 BERR)
                                            (WORK-REF1459 WORK)
                                            (RWORK-REF1460 RWORK))
      (%%ZHPSVX FACT UPLO N-REF1447 NRHS-REF1448 AP-REF1449 AFP-REF1450
       IPIV-REF1451 B-REF1452 LDB-REF1453 X-REF1454 LDX-REF1455
       RCOND-REF1456 FERR-REF1457 BERR-REF1458 WORK-REF1459
       RWORK-REF1460 INFO-REF1461))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASWLQ "dlaswlq_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASWLQ (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASWLQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1462 ':INT32) (N-REF1463 ':INT32)
                              (MB-REF1464 ':INT32) (NB-REF1465 ':INT32)
                              (LDA-REF1467 ':INT32)
                              (LDT-REF1469 ':INT32)
                              (LWORK-REF1471 ':INT32)
                              (INFO-REF1472 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1462 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1463 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF1464 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF1465 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1467 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF1469 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1471 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1472 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1466 A)
                                            (T-REF1468 T)
                                            (WORK-REF1470 WORK))
      (%%DLASWLQ M-REF1462 N-REF1463 MB-REF1464 NB-REF1465 A-REF1466
       LDA-REF1467 T-REF1468 LDT-REF1469 WORK-REF1470 LWORK-REF1471
       INFO-REF1472))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ILASLR "ilaslr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS))
  :RETURNING :INT :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ILASLR (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILASLR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1473 ':INT32) (N-REF1474 ':INT32)
                              (LDA-REF1476 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1473 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1474 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1476 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1475 A))
      (%%ILASLR M-REF1473 N-REF1474 A-REF1475 LDA-REF1476))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLA_SYAMV "dla_syamv_")
  ((UPLO :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLA_SYAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYAMV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF1477 ':INT32)
                              (N-REF1478 ':INT32)
                              (ALPHA-REF1479 ':DOUBLE)
                              (LDA-REF1481 ':INT32)
                              (INCX-REF1483 ':INT32)
                              (BETA-REF1484 ':DOUBLE)
                              (INCY-REF1486 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF1477 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1478 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF1479 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1481 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1483 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF1484 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF1486 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1480 A)
                                            (X-REF1482 X)
                                            (Y-REF1485 Y))
      (%%DLA_SYAMV UPLO-REF1477 N-REF1478 ALPHA-REF1479 A-REF1480
       LDA-REF1481 X-REF1482 INCX-REF1483 BETA-REF1484 Y-REF1485
       INCY-REF1486))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLA_GBAMV "sla_gbamv_")
  ((TRANS :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_GBAMV
    (TRANS M N KL KU ALPHA AB LDAB X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GBAMV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF1487 ':INT32)
                              (M-REF1488 ':INT32) (N-REF1489 ':INT32)
                              (KL-REF1490 ':INT32) (KU-REF1491 ':INT32)
                              (ALPHA-REF1492 ':FLOAT)
                              (LDAB-REF1494 ':INT32)
                              (INCX-REF1496 ':INT32)
                              (BETA-REF1497 ':FLOAT)
                              (INCY-REF1499 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF1487 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1488 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1489 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF1490 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF1491 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF1492 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1494 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1496 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF1497 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF1499 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1493 AB)
                                            (X-REF1495 X)
                                            (Y-REF1498 Y))
      (%%SLA_GBAMV TRANS-REF1487 M-REF1488 N-REF1489 KL-REF1490
       KU-REF1491 ALPHA-REF1492 AB-REF1493 LDAB-REF1494 X-REF1495
       INCX-REF1496 BETA-REF1497 Y-REF1498 INCY-REF1499))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTFTTR "ztfttr_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ARF :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTFTTR (TRANSR UPLO N ARF A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTFTTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    ARF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1502 ':INT32) (LDA-REF1505 ':INT32)
                              (INFO-REF1506 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1502 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1505 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1506 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF1503 ARF)
                                            (A-REF1504 A))
      (%%ZTFTTR TRANSR UPLO N-REF1502 ARF-REF1503 A-REF1504 LDA-REF1505
       INFO-REF1506))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSTEVX "sstevx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSTEVX
    (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ WORK IWORK IFAIL
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1509 ':INT32) (VL-REF1512 ':FLOAT)
                              (VU-REF1513 ':FLOAT) (IL-REF1514 ':INT32)
                              (IU-REF1515 ':INT32)
                              (ABSTOL-REF1516 ':FLOAT)
                              (M-REF1517 ':INT32) (LDZ-REF1520 ':INT32)
                              (INFO-REF1524 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1509 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1512 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1513 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1514 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1515 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1516 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1517 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1520 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1524 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF1510 D)
                                            (E-REF1511 E)
                                            (W-REF1518 W)
                                            (Z-REF1519 Z)
                                            (WORK-REF1521 WORK)
                                            (IWORK-REF1522 IWORK)
                                            (IFAIL-REF1523 IFAIL))
      (%%SSTEVX JOBZ RANGE N-REF1509 D-REF1510 E-REF1511 VL-REF1512
       VU-REF1513 IL-REF1514 IU-REF1515 ABSTOL-REF1516 M-REF1517
       W-REF1518 Z-REF1519 LDZ-REF1520 WORK-REF1521 IWORK-REF1522
       IFAIL-REF1523 INFO-REF1524))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLA_GBAMV "dla_gbamv_")
  ((TRANS :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLA_GBAMV
    (TRANS M N KL KU ALPHA AB LDAB X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBAMV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF1525 ':INT32)
                              (M-REF1526 ':INT32) (N-REF1527 ':INT32)
                              (KL-REF1528 ':INT32) (KU-REF1529 ':INT32)
                              (ALPHA-REF1530 ':DOUBLE)
                              (LDAB-REF1532 ':INT32)
                              (INCX-REF1534 ':INT32)
                              (BETA-REF1535 ':DOUBLE)
                              (INCY-REF1537 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF1525 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1526 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1527 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF1528 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF1529 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF1530 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1532 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1534 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF1535 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF1537 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1531 AB)
                                            (X-REF1533 X)
                                            (Y-REF1536 Y))
      (%%DLA_GBAMV TRANS-REF1525 M-REF1526 N-REF1527 KL-REF1528
       KU-REF1529 ALPHA-REF1530 AB-REF1531 LDAB-REF1532 X-REF1533
       INCX-REF1534 BETA-REF1535 Y-REF1536 INCY-REF1537))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAPMT "dlapmt_")
  ((FORWRD :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAPMT (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPMT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF1538 ':INT32)
                              (M-REF1539 ':INT32) (N-REF1540 ':INT32)
                              (LDX-REF1542 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF1538 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1539 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1540 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1542 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF1541 X)
                                            (K-REF1543 K))
      (%%DLAPMT FORWRD-REF1538 M-REF1539 N-REF1540 X-REF1541
       LDX-REF1542 K-REF1543))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAPY2 "slapy2_")
  ((X :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)) :RETURNING
  (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER :ALLOW-GC
  :NEVER)

(COMMON-LISP:DEFUN %SLAPY2 (X Y)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPY2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT X)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Y))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF1544 ':FLOAT) (Y-REF1545 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF1544 :FLOAT) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF1545 :FLOAT) Y)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAPY2 X-REF1544 Y-REF1545))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTPMQRT "dtpmqrt_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTPMQRT
    (SIDE TRANS M N K L NB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPMQRT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1548 ':INT32) (N-REF1549 ':INT32)
                              (K-REF1550 ':INT32) (L-REF1551 ':INT32)
                              (NB-REF1552 ':INT32)
                              (LDV-REF1554 ':INT32)
                              (LDT-REF1556 ':INT32)
                              (LDA-REF1558 ':INT32)
                              (LDB-REF1560 ':INT32)
                              (INFO-REF1562 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1548 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1549 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1550 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF1551 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF1552 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1554 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF1556 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1558 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1560 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1562 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF1553 V)
                                            (T-REF1555 T)
                                            (A-REF1557 A)
                                            (B-REF1559 B)
                                            (WORK-REF1561 WORK))
      (%%DTPMQRT SIDE TRANS M-REF1548 N-REF1549 K-REF1550 L-REF1551
       NB-REF1552 V-REF1553 LDV-REF1554 T-REF1555 LDT-REF1556 A-REF1557
       LDA-REF1558 B-REF1559 LDB-REF1560 WORK-REF1561 INFO-REF1562))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNGQR "cungqr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNGQR (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1563 ':INT32) (N-REF1564 ':INT32)
                              (K-REF1565 ':INT32) (LDA-REF1567 ':INT32)
                              (LWORK-REF1570 ':INT32)
                              (INFO-REF1571 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1563 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1564 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1565 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1567 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1570 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1571 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1566 A)
                                            (TAU-REF1568 TAU)
                                            (WORK-REF1569 WORK))
      (%%CUNGQR M-REF1563 N-REF1564 K-REF1565 A-REF1566 LDA-REF1567
       TAU-REF1568 WORK-REF1569 LWORK-REF1570 INFO-REF1571))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYRFS "csyrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYRFS
    (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1573 ':INT32)
                              (NRHS-REF1574 ':INT32)
                              (LDA-REF1576 ':INT32)
                              (LDAF-REF1578 ':INT32)
                              (LDB-REF1581 ':INT32)
                              (LDX-REF1583 ':INT32)
                              (INFO-REF1588 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1573 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1574 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1576 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1578 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1581 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1583 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1588 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1575 A)
                                            (AF-REF1577 AF)
                                            (IPIV-REF1579 IPIV)
                                            (B-REF1580 B)
                                            (X-REF1582 X)
                                            (FERR-REF1584 FERR)
                                            (BERR-REF1585 BERR)
                                            (WORK-REF1586 WORK)
                                            (RWORK-REF1587 RWORK))
      (%%CSYRFS UPLO N-REF1573 NRHS-REF1574 A-REF1575 LDA-REF1576
       AF-REF1577 LDAF-REF1578 IPIV-REF1579 B-REF1580 LDB-REF1581
       X-REF1582 LDX-REF1583 FERR-REF1584 BERR-REF1585 WORK-REF1586
       RWORK-REF1587 INFO-REF1588))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYGV_2STAGE "dsygv_2stage_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYGV_2STAGE
    (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGV_2STAGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1589 ':INT32)
                              (N-REF1592 ':INT32) (LDA-REF1594 ':INT32)
                              (LDB-REF1596 ':INT32)
                              (LWORK-REF1599 ':INT32)
                              (INFO-REF1600 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1589 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1592 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1594 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1596 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1599 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1600 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1593 A)
                                            (B-REF1595 B)
                                            (W-REF1597 W)
                                            (WORK-REF1598 WORK))
      (%%DSYGV_2STAGE ITYPE-REF1589 JOBZ UPLO N-REF1592 A-REF1593
       LDA-REF1594 B-REF1595 LDB-REF1596 W-REF1597 WORK-REF1598
       LWORK-REF1599 INFO-REF1600))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSTERF "dsterf_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSTERF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTERF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1601 ':INT32)
                              (INFO-REF1604 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1601 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1604 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF1602 D)
                                            (E-REF1603 E))
      (%%DSTERF N-REF1601 D-REF1602 E-REF1603 INFO-REF1604))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGELQF "dgelqf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGELQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1605 ':INT32) (N-REF1606 ':INT32)
                              (LDA-REF1608 ':INT32)
                              (LWORK-REF1611 ':INT32)
                              (INFO-REF1612 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1605 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1606 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1608 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1611 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1612 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1607 A)
                                            (TAU-REF1609 TAU)
                                            (WORK-REF1610 WORK))
      (%%DGELQF M-REF1605 N-REF1606 A-REF1607 LDA-REF1608 TAU-REF1609
       WORK-REF1610 LWORK-REF1611 INFO-REF1612))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPBRFS "spbrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPBRFS
    (UPLO N KD NRHS AB LDAB AFB LDAFB B LDB X LDX FERR BERR WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1614 ':INT32) (KD-REF1615 ':INT32)
                              (NRHS-REF1616 ':INT32)
                              (LDAB-REF1618 ':INT32)
                              (LDAFB-REF1620 ':INT32)
                              (LDB-REF1622 ':INT32)
                              (LDX-REF1624 ':INT32)
                              (INFO-REF1629 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1614 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1615 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1616 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1618 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF1620 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1622 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1624 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1629 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1617 AB)
                                            (AFB-REF1619 AFB)
                                            (B-REF1621 B)
                                            (X-REF1623 X)
                                            (FERR-REF1625 FERR)
                                            (BERR-REF1626 BERR)
                                            (WORK-REF1627 WORK)
                                            (IWORK-REF1628 IWORK))
      (%%SPBRFS UPLO N-REF1614 KD-REF1615 NRHS-REF1616 AB-REF1617
       LDAB-REF1618 AFB-REF1619 LDAFB-REF1620 B-REF1621 LDB-REF1622
       X-REF1623 LDX-REF1624 FERR-REF1625 BERR-REF1626 WORK-REF1627
       IWORK-REF1628 INFO-REF1629))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGGES3 "zgges3_")
  ((JOBVSL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELCTG :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (SDIM :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VSL :FOREIGN-ADDRESS)
   (LDVSL :FOREIGN-ADDRESS) (VSR :FOREIGN-ADDRESS)
   (LDVSR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (BWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGGES3
    (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHA BETA VSL LDVSL
     VSR LDVSR WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGES3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VSL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VSR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1633 ':INT32)
                              (N-REF1634 ':INT32) (LDA-REF1636 ':INT32)
                              (LDB-REF1638 ':INT32)
                              (SDIM-REF1639 ':INT32)
                              (LDVSL-REF1643 ':INT32)
                              (LDVSR-REF1645 ':INT32)
                              (LWORK-REF1647 ':INT32)
                              (INFO-REF1650 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1633 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1634 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1636 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1638 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1639 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF1643 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF1645 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1647 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1650 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1635 A)
                                            (B-REF1637 B)
                                            (ALPHA-REF1640 ALPHA)
                                            (BETA-REF1641 BETA)
                                            (VSL-REF1642 VSL)
                                            (VSR-REF1644 VSR)
                                            (WORK-REF1646 WORK)
                                            (RWORK-REF1648 RWORK)
                                            (BWORK-REF1649 BWORK))
      (%%ZGGES3 JOBVSL JOBVSR SORT SELCTG-REF1633 N-REF1634 A-REF1635
       LDA-REF1636 B-REF1637 LDB-REF1638 SDIM-REF1639 ALPHA-REF1640
       BETA-REF1641 VSL-REF1642 LDVSL-REF1643 VSR-REF1644 LDVSR-REF1645
       WORK-REF1646 LWORK-REF1647 RWORK-REF1648 BWORK-REF1649
       INFO-REF1650))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%ZLA_GBRFSX_EXTENDED "zla_gbrfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS) (TRANS_TYPE :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (COLEQU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_GBRFSX_EXTENDED
    (PREC_TYPE TRANS_TYPE N KL KU NRHS AB LDAB AFB LDAFB IPIV COLEQU C
     B LDB Y LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB
     DY Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBRFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS_TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF1651 ':INT32)
                              (TRANS_TYPE-REF1652 ':INT32)
                              (N-REF1653 ':INT32) (KL-REF1654 ':INT32)
                              (KU-REF1655 ':INT32)
                              (NRHS-REF1656 ':INT32)
                              (LDAB-REF1658 ':INT32)
                              (LDAFB-REF1660 ':INT32)
                              (COLEQU-REF1662 ':INT32)
                              (LDB-REF1665 ':INT32)
                              (LDY-REF1667 ':INT32)
                              (N_NORMS-REF1669 ':INT32)
                              (RCOND-REF1676 ':DOUBLE)
                              (ITHRESH-REF1677 ':INT32)
                              (RTHRESH-REF1678 ':DOUBLE)
                              (DZ_UB-REF1679 ':DOUBLE)
                              (IGNORE_CWISE-REF1680 ':INT32)
                              (INFO-REF1681 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF1651 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF1652 :INT32)
                      TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1653 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF1654 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF1655 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1656 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1658 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF1660 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF1662 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1665 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF1667 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF1669 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1676 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF1677 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF1678 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF1679 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF1680 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1681 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1657 AB)
                                            (AFB-REF1659 AFB)
                                            (IPIV-REF1661 IPIV)
                                            (C-REF1663 C)
                                            (B-REF1664 B)
                                            (Y-REF1666 Y)
                                            (BERR_OUT-REF1668 BERR_OUT)
                                            (ERR_BNDS_NORM-REF1670
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF1671
                                             ERR_BNDS_COMP)
                                            (RES-REF1672 RES)
                                            (AYB-REF1673 AYB)
                                            (DY-REF1674 DY)
                                            (Y_TAIL-REF1675 Y_TAIL))
      (%%ZLA_GBRFSX_EXTENDED PREC_TYPE-REF1651 TRANS_TYPE-REF1652
       N-REF1653 KL-REF1654 KU-REF1655 NRHS-REF1656 AB-REF1657
       LDAB-REF1658 AFB-REF1659 LDAFB-REF1660 IPIV-REF1661
       COLEQU-REF1662 C-REF1663 B-REF1664 LDB-REF1665 Y-REF1666
       LDY-REF1667 BERR_OUT-REF1668 N_NORMS-REF1669
       ERR_BNDS_NORM-REF1670 ERR_BNDS_COMP-REF1671 RES-REF1672
       AYB-REF1673 DY-REF1674 Y_TAIL-REF1675 RCOND-REF1676
       ITHRESH-REF1677 RTHRESH-REF1678 DZ_UB-REF1679
       IGNORE_CWISE-REF1680 INFO-REF1681))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTRF_RK "csytrf_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1683 ':INT32) (LDA-REF1685 ':INT32)
                              (LWORK-REF1689 ':INT32)
                              (INFO-REF1690 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1683 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1685 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1689 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1690 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1684 A)
                                            (E-REF1686 E)
                                            (IPIV-REF1687 IPIV)
                                            (WORK-REF1688 WORK))
      (%%CSYTRF_RK UPLO N-REF1683 A-REF1684 LDA-REF1685 E-REF1686
       IPIV-REF1687 WORK-REF1688 LWORK-REF1689 INFO-REF1690))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLABRD "dlabrd_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAUQ :FOREIGN-ADDRESS) (TAUP :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (LDY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLABRD (M N NB A LDA D E TAUQ TAUP X LDX Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLABRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1691 ':INT32) (N-REF1692 ':INT32)
                              (NB-REF1693 ':INT32)
                              (LDA-REF1695 ':INT32)
                              (LDX-REF1701 ':INT32)
                              (LDY-REF1703 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1691 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1692 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF1693 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1695 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1701 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF1703 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1694 A)
                                            (D-REF1696 D)
                                            (E-REF1697 E)
                                            (TAUQ-REF1698 TAUQ)
                                            (TAUP-REF1699 TAUP)
                                            (X-REF1700 X)
                                            (Y-REF1702 Y))
      (%%DLABRD M-REF1691 N-REF1692 NB-REF1693 A-REF1694 LDA-REF1695
       D-REF1696 E-REF1697 TAUQ-REF1698 TAUP-REF1699 X-REF1700
       LDX-REF1701 Y-REF1702 LDY-REF1703))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASQ6 "slasq6_")
  ((I0 :FOREIGN-ADDRESS) (N0 :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (PP :FOREIGN-ADDRESS) (DMIN :FOREIGN-ADDRESS)
   (DMIN1 :FOREIGN-ADDRESS) (DMIN2 :FOREIGN-ADDRESS)
   (DN :FOREIGN-ADDRESS) (DNM1 :FOREIGN-ADDRESS)
   (DNM2 :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASQ6 (I0 N0 Z PP DMIN DMIN1 DMIN2 DN DNM1 DNM2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASQ6)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DMIN2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM2))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF1704 ':INT32) (N0-REF1705 ':INT32)
                              (PP-REF1707 ':INT32)
                              (DMIN-REF1708 ':FLOAT)
                              (DMIN1-REF1709 ':FLOAT)
                              (DMIN2-REF1710 ':FLOAT)
                              (DN-REF1711 ':FLOAT)
                              (DNM1-REF1712 ':FLOAT)
                              (DNM2-REF1713 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF1704 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF1705 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF1707 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF1708 :FLOAT) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF1709 :FLOAT) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF1710 :FLOAT) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF1711 :FLOAT) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF1712 :FLOAT) DNM1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF1713 :FLOAT) DNM2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF1706 Z))
      (%%SLASQ6 I0-REF1704 N0-REF1705 Z-REF1706 PP-REF1707 DMIN-REF1708
       DMIN1-REF1709 DMIN2-REF1710 DN-REF1711 DNM1-REF1712
       DNM2-REF1713))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLALSA "slalsa_")
  ((ICOMPQ :FOREIGN-ADDRESS) (SMLSIZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (BX :FOREIGN-ADDRESS) (LDBX :FOREIGN-ADDRESS)
   (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS) (VT :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (DIFL :FOREIGN-ADDRESS) (DIFR :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (POLES :FOREIGN-ADDRESS)
   (GIVPTR :FOREIGN-ADDRESS) (GIVCOL :FOREIGN-ADDRESS)
   (LDGCOL :FOREIGN-ADDRESS) (PERM :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLALSA
    (ICOMPQ SMLSIZ N NRHS B LDB BX LDBX U LDU VT K DIFL DIFR Z POLES
     GIVPTR GIVCOL LDGCOL PERM GIVNUM C S WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLALSA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIFL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIFR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) POLES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF1714 ':INT32)
                              (SMLSIZ-REF1715 ':INT32)
                              (N-REF1716 ':INT32)
                              (NRHS-REF1717 ':INT32)
                              (LDB-REF1719 ':INT32)
                              (LDBX-REF1721 ':INT32)
                              (LDU-REF1723 ':INT32)
                              (LDGCOL-REF1732 ':INT32)
                              (INFO-REF1739 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF1714 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF1715 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1716 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1717 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1719 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF1721 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1723 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF1732 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1739 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF1718 B)
                                            (BX-REF1720 BX)
                                            (U-REF1722 U)
                                            (VT-REF1724 VT)
                                            (K-REF1725 K)
                                            (DIFL-REF1726 DIFL)
                                            (DIFR-REF1727 DIFR)
                                            (Z-REF1728 Z)
                                            (POLES-REF1729 POLES)
                                            (GIVPTR-REF1730 GIVPTR)
                                            (GIVCOL-REF1731 GIVCOL)
                                            (PERM-REF1733 PERM)
                                            (GIVNUM-REF1734 GIVNUM)
                                            (C-REF1735 C)
                                            (S-REF1736 S)
                                            (WORK-REF1737 WORK)
                                            (IWORK-REF1738 IWORK))
      (%%SLALSA ICOMPQ-REF1714 SMLSIZ-REF1715 N-REF1716 NRHS-REF1717
       B-REF1718 LDB-REF1719 BX-REF1720 LDBX-REF1721 U-REF1722
       LDU-REF1723 VT-REF1724 K-REF1725 DIFL-REF1726 DIFR-REF1727
       Z-REF1728 POLES-REF1729 GIVPTR-REF1730 GIVCOL-REF1731
       LDGCOL-REF1732 PERM-REF1733 GIVNUM-REF1734 C-REF1735 S-REF1736
       WORK-REF1737 IWORK-REF1738 INFO-REF1739))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHBEV_2STAGE "zhbev_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHBEV_2STAGE
    (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEV_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1742 ':INT32) (KD-REF1743 ':INT32)
                              (LDAB-REF1745 ':INT32)
                              (LDZ-REF1748 ':INT32)
                              (LWORK-REF1750 ':INT32)
                              (INFO-REF1752 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1742 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1743 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1745 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1748 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1750 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1752 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1744 AB)
                                            (W-REF1746 W)
                                            (Z-REF1747 Z)
                                            (WORK-REF1749 WORK)
                                            (RWORK-REF1751 RWORK))
      (%%ZHBEV_2STAGE JOBZ UPLO N-REF1742 KD-REF1743 AB-REF1744
       LDAB-REF1745 W-REF1746 Z-REF1747 LDZ-REF1748 WORK-REF1749
       LWORK-REF1750 RWORK-REF1751 INFO-REF1752))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STPMQRT "stpmqrt_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STPMQRT
    (SIDE TRANS M N K L NB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPMQRT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1755 ':INT32) (N-REF1756 ':INT32)
                              (K-REF1757 ':INT32) (L-REF1758 ':INT32)
                              (NB-REF1759 ':INT32)
                              (LDV-REF1761 ':INT32)
                              (LDT-REF1763 ':INT32)
                              (LDA-REF1765 ':INT32)
                              (LDB-REF1767 ':INT32)
                              (INFO-REF1769 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1755 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1756 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1757 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF1758 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF1759 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1761 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF1763 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1765 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1767 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1769 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF1760 V)
                                            (T-REF1762 T)
                                            (A-REF1764 A)
                                            (B-REF1766 B)
                                            (WORK-REF1768 WORK))
      (%%STPMQRT SIDE TRANS M-REF1755 N-REF1756 K-REF1757 L-REF1758
       NB-REF1759 V-REF1760 LDV-REF1761 T-REF1762 LDT-REF1763 A-REF1764
       LDA-REF1765 B-REF1766 LDB-REF1767 WORK-REF1768 INFO-REF1769))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLASWP "claswp_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (K1 :FOREIGN-ADDRESS) (K2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLASWP (N A LDA K1 K2 IPIV INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASWP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1770 ':INT32) (LDA-REF1772 ':INT32)
                              (K1-REF1773 ':INT32) (K2-REF1774 ':INT32)
                              (INCX-REF1776 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1770 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1772 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF1773 :INT32) K1)
    (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF1774 :INT32) K2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1776 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1771 A)
                                            (IPIV-REF1775 IPIV))
      (%%CLASWP N-REF1770 A-REF1771 LDA-REF1772 K1-REF1773 K2-REF1774
       IPIV-REF1775 INCX-REF1776))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRD "dsytrd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRD (UPLO N A LDA D E TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1778 ':INT32) (LDA-REF1780 ':INT32)
                              (LWORK-REF1785 ':INT32)
                              (INFO-REF1786 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1778 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1780 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1785 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1786 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1779 A)
                                            (D-REF1781 D)
                                            (E-REF1782 E)
                                            (TAU-REF1783 TAU)
                                            (WORK-REF1784 WORK))
      (%%DSYTRD UPLO N-REF1778 A-REF1779 LDA-REF1780 D-REF1781
       E-REF1782 TAU-REF1783 WORK-REF1784 LWORK-REF1785 INFO-REF1786))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARF "zlarf_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (INCV :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARF (SIDE M N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1788 ':INT32) (N-REF1789 ':INT32)
                              (INCV-REF1791 ':INT32)
                              (TAU-REF1792
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF1794 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1788 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1789 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF1791 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF1792
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF1794 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF1790 V)
                                            (C-REF1793 C)
                                            (WORK-REF1795 WORK))
      (%%ZLARF SIDE M-REF1788 N-REF1789 V-REF1790 INCV-REF1791
       TAU-REF1792 C-REF1793 LDC-REF1794 WORK-REF1795))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNMRZ "cunmrz_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNMRZ
    (SIDE TRANS M N K L A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMRZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1798 ':INT32) (N-REF1799 ':INT32)
                              (K-REF1800 ':INT32) (L-REF1801 ':INT32)
                              (LDA-REF1803 ':INT32)
                              (LDC-REF1806 ':INT32)
                              (LWORK-REF1808 ':INT32)
                              (INFO-REF1809 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1798 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1799 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1800 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF1801 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1803 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF1806 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1808 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1809 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1802 A)
                                            (TAU-REF1804 TAU)
                                            (C-REF1805 C)
                                            (WORK-REF1807 WORK))
      (%%CUNMRZ SIDE TRANS M-REF1798 N-REF1799 K-REF1800 L-REF1801
       A-REF1802 LDA-REF1803 TAU-REF1804 C-REF1805 LDC-REF1806
       WORK-REF1807 LWORK-REF1808 INFO-REF1809))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPBTRS "zpbtrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPBTRS (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1811 ':INT32) (KD-REF1812 ':INT32)
                              (NRHS-REF1813 ':INT32)
                              (LDAB-REF1815 ':INT32)
                              (LDB-REF1817 ':INT32)
                              (INFO-REF1818 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1811 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1812 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1813 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1815 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1817 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1818 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1814 AB)
                                            (B-REF1816 B))
      (%%ZPBTRS UPLO N-REF1811 KD-REF1812 NRHS-REF1813 AB-REF1814
       LDAB-REF1815 B-REF1816 LDB-REF1817 INFO-REF1818))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_WWADDW "zla_wwaddw_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_WWADDW (N X Y W)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_WWADDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1819 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1819 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF1820 X)
                                            (Y-REF1821 Y)
                                            (W-REF1822 W))
      (%%ZLA_WWADDW N-REF1819 X-REF1820 Y-REF1821 W-REF1822))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNCSD2BY1 "zuncsd2by1_")
  ((JOBU1 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU2 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV1T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (U1 :FOREIGN-ADDRESS)
   (LDU1 :FOREIGN-ADDRESS) (U2 :FOREIGN-ADDRESS)
   (LDU2 :FOREIGN-ADDRESS) (V1T :FOREIGN-ADDRESS)
   (LDV1T :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNCSD2BY1
    (JOBU1 JOBU2 JOBV1T M P Q X11 LDX11 X21 LDX21 THETA U1 LDU1 U2 LDU2
     V1T LDV1T WORK LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNCSD2BY1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    U1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1826 ':INT32) (P-REF1827 ':INT32)
                              (Q-REF1828 ':INT32)
                              (LDX11-REF1830 ':INT32)
                              (LDX21-REF1832 ':INT32)
                              (LDU1-REF1835 ':INT32)
                              (LDU2-REF1837 ':INT32)
                              (LDV1T-REF1839 ':INT32)
                              (LWORK-REF1841 ':INT32)
                              (LRWORK-REF1843 ':INT32)
                              (INFO-REF1845 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1826 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1827 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF1828 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF1830 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF1832 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF1835 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF1837 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF1839 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1841 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1843 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1845 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF1829 X11)
                                            (X21-REF1831 X21)
                                            (THETA-REF1833 THETA)
                                            (U1-REF1834 U1)
                                            (U2-REF1836 U2)
                                            (V1T-REF1838 V1T)
                                            (WORK-REF1840 WORK)
                                            (RWORK-REF1842 RWORK)
                                            (IWORK-REF1844 IWORK))
      (%%ZUNCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF1826 P-REF1827 Q-REF1828
       X11-REF1829 LDX11-REF1830 X21-REF1831 LDX21-REF1832
       THETA-REF1833 U1-REF1834 LDU1-REF1835 U2-REF1836 LDU2-REF1837
       V1T-REF1838 LDV1T-REF1839 WORK-REF1840 LWORK-REF1841
       RWORK-REF1842 LRWORK-REF1843 IWORK-REF1844 INFO-REF1845))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYSV_ROOK "zsysv_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYSV_ROOK
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSV_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1847 ':INT32)
                              (NRHS-REF1848 ':INT32)
                              (LDA-REF1850 ':INT32)
                              (LDB-REF1853 ':INT32)
                              (LWORK-REF1855 ':INT32)
                              (INFO-REF1856 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1847 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1848 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1850 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1853 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1855 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1856 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1849 A)
                                            (IPIV-REF1851 IPIV)
                                            (B-REF1852 B)
                                            (WORK-REF1854 WORK))
      (%%ZSYSV_ROOK UPLO N-REF1847 NRHS-REF1848 A-REF1849 LDA-REF1850
       IPIV-REF1851 B-REF1852 LDB-REF1853 WORK-REF1854 LWORK-REF1855
       INFO-REF1856))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPCON "sspcon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPCON (UPLO N AP IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1858 ':INT32)
                              (ANORM-REF1861 ':FLOAT)
                              (RCOND-REF1862 ':FLOAT)
                              (INFO-REF1865 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1858 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1861 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1862 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1865 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF1859 AP)
                                            (IPIV-REF1860 IPIV)
                                            (WORK-REF1863 WORK)
                                            (IWORK-REF1864 IWORK))
      (%%SSPCON UPLO N-REF1858 AP-REF1859 IPIV-REF1860 ANORM-REF1861
       RCOND-REF1862 WORK-REF1863 IWORK-REF1864 INFO-REF1865))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASD1 "dlasd1_")
  ((NL :FOREIGN-ADDRESS) (NR :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (IDXQ :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASD1
    (NL NR SQRE D ALPHA BETA U LDU VT LDVT IDXQ IWORK WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF1866 ':INT32) (NR-REF1867 ':INT32)
                              (SQRE-REF1868 ':INT32)
                              (ALPHA-REF1870 ':DOUBLE)
                              (BETA-REF1871 ':DOUBLE)
                              (LDU-REF1873 ':INT32)
                              (LDVT-REF1875 ':INT32)
                              (INFO-REF1879 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF1866 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF1867 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF1868 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF1870 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF1871 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1873 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF1875 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1879 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF1869 D)
                                            (U-REF1872 U)
                                            (VT-REF1874 VT)
                                            (IDXQ-REF1876 IDXQ)
                                            (IWORK-REF1877 IWORK)
                                            (WORK-REF1878 WORK))
      (%%DLASD1 NL-REF1866 NR-REF1867 SQRE-REF1868 D-REF1869
       ALPHA-REF1870 BETA-REF1871 U-REF1872 LDU-REF1873 VT-REF1874
       LDVT-REF1875 IDXQ-REF1876 IWORK-REF1877 WORK-REF1878
       INFO-REF1879))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEQR "zgeqr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (TSIZE :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEQR (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1880 ':INT32) (N-REF1881 ':INT32)
                              (LDA-REF1883 ':INT32)
                              (TSIZE-REF1885 ':INT32)
                              (LWORK-REF1887 ':INT32)
                              (INFO-REF1888 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1880 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1881 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1883 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF1885 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1887 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1888 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1882 A)
                                            (T-REF1884 T)
                                            (WORK-REF1886 WORK))
      (%%ZGEQR M-REF1880 N-REF1881 A-REF1882 LDA-REF1883 T-REF1884
       TSIZE-REF1885 WORK-REF1886 LWORK-REF1887 INFO-REF1888))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRI2X "zsytri2x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI2X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1890 ':INT32) (LDA-REF1892 ':INT32)
                              (NB-REF1895 ':INT32)
                              (INFO-REF1896 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1890 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1892 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF1895 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1896 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1891 A)
                                            (IPIV-REF1893 IPIV)
                                            (WORK-REF1894 WORK))
      (%%ZSYTRI2X UPLO N-REF1890 A-REF1891 LDA-REF1892 IPIV-REF1893
       WORK-REF1894 NB-REF1895 INFO-REF1896))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNBDB5 "zunbdb5_")
  ((M1 :FOREIGN-ADDRESS) (M2 :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (X1 :FOREIGN-ADDRESS) (INCX1 :FOREIGN-ADDRESS) (X2 :FOREIGN-ADDRESS)
   (INCX2 :FOREIGN-ADDRESS) (Q1 :FOREIGN-ADDRESS)
   (LDQ1 :FOREIGN-ADDRESS) (Q2 :FOREIGN-ADDRESS)
   (LDQ2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNBDB5
    (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB5)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF1897 ':INT32) (M2-REF1898 ':INT32)
                              (N-REF1899 ':INT32)
                              (INCX1-REF1901 ':INT32)
                              (INCX2-REF1903 ':INT32)
                              (LDQ1-REF1905 ':INT32)
                              (LDQ2-REF1907 ':INT32)
                              (LWORK-REF1909 ':INT32)
                              (INFO-REF1910 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF1897 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF1898 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1899 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF1901 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF1903 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF1905 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF1907 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1909 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1910 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF1900 X1)
                                            (X2-REF1902 X2)
                                            (Q1-REF1904 Q1)
                                            (Q2-REF1906 Q2)
                                            (WORK-REF1908 WORK))
      (%%ZUNBDB5 M1-REF1897 M2-REF1898 N-REF1899 X1-REF1900
       INCX1-REF1901 X2-REF1902 INCX2-REF1903 Q1-REF1904 LDQ1-REF1905
       Q2-REF1906 LDQ2-REF1907 WORK-REF1908 LWORK-REF1909
       INFO-REF1910))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%DLA_GBRFSX_EXTENDED "dla_gbrfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS) (TRANS_TYPE :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (COLEQU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLA_GBRFSX_EXTENDED
    (PREC_TYPE TRANS_TYPE N KL KU NRHS AB LDAB AFB LDAFB IPIV COLEQU C
     B LDB Y LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB
     DY Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBRFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS_TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF1911 ':INT32)
                              (TRANS_TYPE-REF1912 ':INT32)
                              (N-REF1913 ':INT32) (KL-REF1914 ':INT32)
                              (KU-REF1915 ':INT32)
                              (NRHS-REF1916 ':INT32)
                              (LDAB-REF1918 ':INT32)
                              (LDAFB-REF1920 ':INT32)
                              (COLEQU-REF1922 ':INT32)
                              (LDB-REF1925 ':INT32)
                              (LDY-REF1927 ':INT32)
                              (N_NORMS-REF1929 ':INT32)
                              (RCOND-REF1936 ':DOUBLE)
                              (ITHRESH-REF1937 ':INT32)
                              (RTHRESH-REF1938 ':DOUBLE)
                              (DZ_UB-REF1939 ':DOUBLE)
                              (IGNORE_CWISE-REF1940 ':INT32)
                              (INFO-REF1941 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF1911 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF1912 :INT32)
                      TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1913 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF1914 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF1915 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1916 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1918 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF1920 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF1922 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1925 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF1927 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF1929 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1936 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF1937 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF1938 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF1939 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF1940 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1941 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1917 AB)
                                            (AFB-REF1919 AFB)
                                            (IPIV-REF1921 IPIV)
                                            (C-REF1923 C)
                                            (B-REF1924 B)
                                            (Y-REF1926 Y)
                                            (BERR_OUT-REF1928 BERR_OUT)
                                            (ERR_BNDS_NORM-REF1930
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF1931
                                             ERR_BNDS_COMP)
                                            (RES-REF1932 RES)
                                            (AYB-REF1933 AYB)
                                            (DY-REF1934 DY)
                                            (Y_TAIL-REF1935 Y_TAIL))
      (%%DLA_GBRFSX_EXTENDED PREC_TYPE-REF1911 TRANS_TYPE-REF1912
       N-REF1913 KL-REF1914 KU-REF1915 NRHS-REF1916 AB-REF1917
       LDAB-REF1918 AFB-REF1919 LDAFB-REF1920 IPIV-REF1921
       COLEQU-REF1922 C-REF1923 B-REF1924 LDB-REF1925 Y-REF1926
       LDY-REF1927 BERR_OUT-REF1928 N_NORMS-REF1929
       ERR_BNDS_NORM-REF1930 ERR_BNDS_COMP-REF1931 RES-REF1932
       AYB-REF1933 DY-REF1934 Y_TAIL-REF1935 RCOND-REF1936
       ITHRESH-REF1937 RTHRESH-REF1938 DZ_UB-REF1939
       IGNORE_CWISE-REF1940 INFO-REF1941))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGECON "sgecon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGECON (NORM N A LDA ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGECON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1943 ':INT32) (LDA-REF1945 ':INT32)
                              (ANORM-REF1946 ':FLOAT)
                              (RCOND-REF1947 ':FLOAT)
                              (INFO-REF1950 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1943 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1945 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1946 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1947 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1950 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1944 A)
                                            (WORK-REF1948 WORK)
                                            (IWORK-REF1949 IWORK))
      (%%SGECON NORM N-REF1943 A-REF1944 LDA-REF1945 ANORM-REF1946
       RCOND-REF1947 WORK-REF1948 IWORK-REF1949 INFO-REF1950))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRI_ROOK "zsytri_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1952 ':INT32) (LDA-REF1954 ':INT32)
                              (INFO-REF1957 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1952 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1954 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1957 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1953 A)
                                            (IPIV-REF1955 IPIV)
                                            (WORK-REF1956 WORK))
      (%%ZSYTRI_ROOK UPLO N-REF1952 A-REF1953 LDA-REF1954 IPIV-REF1955
       WORK-REF1956 INFO-REF1957))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPPSVX "dppsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPPSVX
    (FACT UPLO N NRHS AP AFP EQUED S B LDB X LDX RCOND FERR BERR WORK
     IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AFP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1960 ':INT32)
                              (NRHS-REF1961 ':INT32)
                              (LDB-REF1967 ':INT32)
                              (LDX-REF1969 ':INT32)
                              (RCOND-REF1970 ':DOUBLE)
                              (INFO-REF1975 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1960 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1961 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1967 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1969 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1970 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1975 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF1962 AP)
                                            (AFP-REF1963 AFP)
                                            (S-REF1965 S)
                                            (B-REF1966 B)
                                            (X-REF1968 X)
                                            (FERR-REF1971 FERR)
                                            (BERR-REF1972 BERR)
                                            (WORK-REF1973 WORK)
                                            (IWORK-REF1974 IWORK))
      (%%DPPSVX FACT UPLO N-REF1960 NRHS-REF1961 AP-REF1962 AFP-REF1963
       EQUED S-REF1965 B-REF1966 LDB-REF1967 X-REF1968 LDX-REF1969
       RCOND-REF1970 FERR-REF1971 BERR-REF1972 WORK-REF1973
       IWORK-REF1974 INFO-REF1975))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUPMTR "zupmtr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUPMTR (SIDE UPLO TRANS M N AP TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUPMTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1979 ':INT32) (N-REF1980 ':INT32)
                              (LDC-REF1984 ':INT32)
                              (INFO-REF1986 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1979 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1980 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF1984 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1986 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF1981 AP)
                                            (TAU-REF1982 TAU)
                                            (C-REF1983 C)
                                            (WORK-REF1985 WORK))
      (%%ZUPMTR SIDE UPLO TRANS M-REF1979 N-REF1980 AP-REF1981
       TAU-REF1982 C-REF1983 LDC-REF1984 WORK-REF1985 INFO-REF1986))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAQP2 "dlaqp2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (OFFSET :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (JPVT :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (VN1 :FOREIGN-ADDRESS) (VN2 :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAQP2 (M N OFFSET A LDA JPVT TAU VN1 VN2 WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQP2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VN1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VN2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1987 ':INT32) (N-REF1988 ':INT32)
                              (OFFSET-REF1989 ':INT32)
                              (LDA-REF1991 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1987 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1988 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF1989 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1991 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1990 A)
                                            (JPVT-REF1992 JPVT)
                                            (TAU-REF1993 TAU)
                                            (VN1-REF1994 VN1)
                                            (VN2-REF1995 VN2)
                                            (WORK-REF1996 WORK))
      (%%DLAQP2 M-REF1987 N-REF1988 OFFSET-REF1989 A-REF1990
       LDA-REF1991 JPVT-REF1992 TAU-REF1993 VN1-REF1994 VN2-REF1995
       WORK-REF1996))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGLSE "sgglse_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGLSE (M N P A LDA B LDB C D X WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGLSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1997 ':INT32) (N-REF1998 ':INT32)
                              (P-REF1999 ':INT32) (LDA-REF2001 ':INT32)
                              (LDB-REF2003 ':INT32)
                              (LWORK-REF2008 ':INT32)
                              (INFO-REF2009 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1997 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1998 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1999 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2001 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2003 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2008 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2009 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2000 A)
                                            (B-REF2002 B)
                                            (C-REF2004 C)
                                            (D-REF2005 D)
                                            (X-REF2006 X)
                                            (WORK-REF2007 WORK))
      (%%SGGLSE M-REF1997 N-REF1998 P-REF1999 A-REF2000 LDA-REF2001
       B-REF2002 LDB-REF2003 C-REF2004 D-REF2005 X-REF2006 WORK-REF2007
       LWORK-REF2008 INFO-REF2009))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPPSVX "cppsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPPSVX
    (FACT UPLO N NRHS AP AFP EQUED S B LDB X LDX RCOND FERR BERR WORK
     RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AFP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2012 ':INT32)
                              (NRHS-REF2013 ':INT32)
                              (LDB-REF2019 ':INT32)
                              (LDX-REF2021 ':INT32)
                              (RCOND-REF2022 ':FLOAT)
                              (INFO-REF2027 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2012 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2013 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2019 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2021 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2022 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2027 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2014 AP)
                                            (AFP-REF2015 AFP)
                                            (S-REF2017 S)
                                            (B-REF2018 B)
                                            (X-REF2020 X)
                                            (FERR-REF2023 FERR)
                                            (BERR-REF2024 BERR)
                                            (WORK-REF2025 WORK)
                                            (RWORK-REF2026 RWORK))
      (%%CPPSVX FACT UPLO N-REF2012 NRHS-REF2013 AP-REF2014 AFP-REF2015
       EQUED S-REF2017 B-REF2018 LDB-REF2019 X-REF2020 LDX-REF2021
       RCOND-REF2022 FERR-REF2023 BERR-REF2024 WORK-REF2025
       RWORK-REF2026 INFO-REF2027))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGSVJ0 "dgsvj0_")
  ((JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (SVA :FOREIGN-ADDRESS) (MV :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (EPS :FOREIGN-ADDRESS)
   (SFMIN :FOREIGN-ADDRESS) (TOL :FOREIGN-ADDRESS)
   (NSWEEP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGSVJ0
    (JOBV M N A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGSVJ0)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SVA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SFMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2029 ':INT32) (N-REF2030 ':INT32)
                              (LDA-REF2032 ':INT32)
                              (MV-REF2035 ':INT32)
                              (LDV-REF2037 ':INT32)
                              (EPS-REF2038 ':DOUBLE)
                              (SFMIN-REF2039 ':DOUBLE)
                              (TOL-REF2040 ':DOUBLE)
                              (NSWEEP-REF2041 ':INT32)
                              (LWORK-REF2043 ':INT32)
                              (INFO-REF2044 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2029 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2030 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2032 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF2035 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF2037 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF2038 :DOUBLE) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF2039 :DOUBLE) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF2040 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF2041 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2043 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2044 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2031 A)
                                            (D-REF2033 D)
                                            (SVA-REF2034 SVA)
                                            (V-REF2036 V)
                                            (WORK-REF2042 WORK))
      (%%DGSVJ0 JOBV M-REF2029 N-REF2030 A-REF2031 LDA-REF2032
       D-REF2033 SVA-REF2034 MV-REF2035 V-REF2036 LDV-REF2037
       EPS-REF2038 SFMIN-REF2039 TOL-REF2040 NSWEEP-REF2041
       WORK-REF2042 LWORK-REF2043 INFO-REF2044))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEEQU "cgeequ_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (ROWCND :FOREIGN-ADDRESS) (COLCND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEEQU (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEEQU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2045 ':INT32) (N-REF2046 ':INT32)
                              (LDA-REF2048 ':INT32)
                              (ROWCND-REF2051 ':FLOAT)
                              (COLCND-REF2052 ':FLOAT)
                              (AMAX-REF2053 ':FLOAT)
                              (INFO-REF2054 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2045 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2046 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2048 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF2051 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF2052 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF2053 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2054 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2047 A)
                                            (R-REF2049 R)
                                            (C-REF2050 C))
      (%%CGEEQU M-REF2045 N-REF2046 A-REF2047 LDA-REF2048 R-REF2049
       C-REF2050 ROWCND-REF2051 COLCND-REF2052 AMAX-REF2053
       INFO-REF2054))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLASSQ "zlassq_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (SUMSQ :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLASSQ (N X INCX SCALE SUMSQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASSQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SUMSQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2055 ':INT32)
                              (INCX-REF2057 ':INT32)
                              (SCALE-REF2058 ':DOUBLE)
                              (SUMSQ-REF2059 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2055 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2057 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF2058 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF2059 :DOUBLE) SUMSQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF2056 X))
      (%%ZLASSQ N-REF2055 X-REF2056 INCX-REF2057 SCALE-REF2058
       SUMSQ-REF2059))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STGSYL "stgsyl_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (IJOB :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (LDD :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (LDE :FOREIGN-ADDRESS) (F :FOREIGN-ADDRESS) (LDF :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (DIF :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STGSYL
    (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE DIF WORK
     LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGSYL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) F)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DIF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF2061 ':INT32)
                              (M-REF2062 ':INT32) (N-REF2063 ':INT32)
                              (LDA-REF2065 ':INT32)
                              (LDB-REF2067 ':INT32)
                              (LDC-REF2069 ':INT32)
                              (LDD-REF2071 ':INT32)
                              (LDE-REF2073 ':INT32)
                              (LDF-REF2075 ':INT32)
                              (SCALE-REF2076 ':FLOAT)
                              (DIF-REF2077 ':FLOAT)
                              (LWORK-REF2079 ':INT32)
                              (INFO-REF2081 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF2061 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2062 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2063 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2065 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2067 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF2069 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF2071 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF2073 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF2075 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF2076 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF2077 :FLOAT) DIF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2079 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2081 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2064 A)
                                            (B-REF2066 B)
                                            (C-REF2068 C)
                                            (D-REF2070 D)
                                            (E-REF2072 E)
                                            (F-REF2074 F)
                                            (WORK-REF2078 WORK)
                                            (IWORK-REF2080 IWORK))
      (%%STGSYL TRANS IJOB-REF2061 M-REF2062 N-REF2063 A-REF2064
       LDA-REF2065 B-REF2066 LDB-REF2067 C-REF2068 LDC-REF2069
       D-REF2070 LDD-REF2071 E-REF2072 LDE-REF2073 F-REF2074
       LDF-REF2075 SCALE-REF2076 DIF-REF2077 WORK-REF2078 LWORK-REF2079
       IWORK-REF2080 INFO-REF2081))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYCONVF "dsyconvf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WAY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYCONVF (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCONVF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2084 ':INT32) (LDA-REF2086 ':INT32)
                              (INFO-REF2089 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2084 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2086 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2089 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2085 A)
                                            (E-REF2087 E)
                                            (IPIV-REF2088 IPIV))
      (%%DSYCONVF UPLO WAY N-REF2084 A-REF2085 LDA-REF2086 E-REF2087
       IPIV-REF2088 INFO-REF2089))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSBEVD "dsbevd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSBEVD
    (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2092 ':INT32) (KD-REF2093 ':INT32)
                              (LDAB-REF2095 ':INT32)
                              (LDZ-REF2098 ':INT32)
                              (LWORK-REF2100 ':INT32)
                              (LIWORK-REF2102 ':INT32)
                              (INFO-REF2103 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2092 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF2093 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2095 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2098 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2100 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2102 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2103 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2094 AB)
                                            (W-REF2096 W)
                                            (Z-REF2097 Z)
                                            (WORK-REF2099 WORK)
                                            (IWORK-REF2101 IWORK))
      (%%DSBEVD JOBZ UPLO N-REF2092 KD-REF2093 AB-REF2094 LDAB-REF2095
       W-REF2096 Z-REF2097 LDZ-REF2098 WORK-REF2099 LWORK-REF2100
       IWORK-REF2101 LIWORK-REF2102 INFO-REF2103))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHERFSX "zherfsx_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHERFSX
    (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND BERR
     N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHERFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2106 ':INT32)
                              (NRHS-REF2107 ':INT32)
                              (LDA-REF2109 ':INT32)
                              (LDAF-REF2111 ':INT32)
                              (LDB-REF2115 ':INT32)
                              (LDX-REF2117 ':INT32)
                              (RCOND-REF2118 ':DOUBLE)
                              (N_ERR_BNDS-REF2120 ':INT32)
                              (NPARAMS-REF2123 ':INT32)
                              (INFO-REF2127 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2106 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2107 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2109 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2111 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2115 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2117 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2118 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF2120 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF2123 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2127 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2108 A)
                                            (AF-REF2110 AF)
                                            (IPIV-REF2112 IPIV)
                                            (S-REF2113 S)
                                            (B-REF2114 B)
                                            (X-REF2116 X)
                                            (BERR-REF2119 BERR)
                                            (ERR_BNDS_NORM-REF2121
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF2122
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF2124 PARAMS)
                                            (WORK-REF2125 WORK)
                                            (RWORK-REF2126 RWORK))
      (%%ZHERFSX UPLO EQUED N-REF2106 NRHS-REF2107 A-REF2108
       LDA-REF2109 AF-REF2110 LDAF-REF2111 IPIV-REF2112 S-REF2113
       B-REF2114 LDB-REF2115 X-REF2116 LDX-REF2117 RCOND-REF2118
       BERR-REF2119 N_ERR_BNDS-REF2120 ERR_BNDS_NORM-REF2121
       ERR_BNDS_COMP-REF2122 NPARAMS-REF2123 PARAMS-REF2124
       WORK-REF2125 RWORK-REF2126 INFO-REF2127))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTGEX2 "ztgex2_")
  ((WANTQ :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (J1 :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTGEX2
    (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ J1 INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGEX2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF2128 ':INT32)
                              (WANTZ-REF2129 ':INT32)
                              (N-REF2130 ':INT32) (LDA-REF2132 ':INT32)
                              (LDB-REF2134 ':INT32)
                              (LDQ-REF2136 ':INT32)
                              (LDZ-REF2138 ':INT32)
                              (J1-REF2139 ':INT32)
                              (INFO-REF2140 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF2128 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF2129 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2130 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2132 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2134 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2136 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2138 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF2139 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2140 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2131 A)
                                            (B-REF2133 B)
                                            (Q-REF2135 Q)
                                            (Z-REF2137 Z))
      (%%ZTGEX2 WANTQ-REF2128 WANTZ-REF2129 N-REF2130 A-REF2131
       LDA-REF2132 B-REF2133 LDB-REF2134 Q-REF2135 LDQ-REF2136
       Z-REF2137 LDZ-REF2138 J1-REF2139 INFO-REF2140))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAG2 "slag2_")
  ((A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (SAFMIN :FOREIGN-ADDRESS)
   (SCALE1 :FOREIGN-ADDRESS) (SCALE2 :FOREIGN-ADDRESS)
   (WR1 :FOREIGN-ADDRESS) (WR2 :FOREIGN-ADDRESS) (WI :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAG2 (A LDA B LDB SAFMIN SCALE1 SCALE2 WR1 WR2 WI)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAG2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SAFMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WR1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WR2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WI))
  (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF2142 ':INT32)
                              (LDB-REF2144 ':INT32)
                              (SAFMIN-REF2145 ':FLOAT)
                              (SCALE1-REF2146 ':FLOAT)
                              (SCALE2-REF2147 ':FLOAT)
                              (WR1-REF2148 ':FLOAT)
                              (WR2-REF2149 ':FLOAT)
                              (WI-REF2150 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2142 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2144 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SAFMIN-REF2145 :FLOAT) SAFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE1-REF2146 :FLOAT) SCALE1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE2-REF2147 :FLOAT) SCALE2)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR1-REF2148 :FLOAT) WR1)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR2-REF2149 :FLOAT) WR2)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF2150 :FLOAT) WI)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2141 A)
                                            (B-REF2143 B))
      (%%SLAG2 A-REF2141 LDA-REF2142 B-REF2143 LDB-REF2144
       SAFMIN-REF2145 SCALE1-REF2146 SCALE2-REF2147 WR1-REF2148
       WR2-REF2149 WI-REF2150))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHESVX "chesvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHESVX
    (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR BERR
     WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHESVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2153 ':INT32)
                              (NRHS-REF2154 ':INT32)
                              (LDA-REF2156 ':INT32)
                              (LDAF-REF2158 ':INT32)
                              (LDB-REF2161 ':INT32)
                              (LDX-REF2163 ':INT32)
                              (RCOND-REF2164 ':FLOAT)
                              (LWORK-REF2168 ':INT32)
                              (INFO-REF2170 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2153 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2154 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2156 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2158 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2161 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2163 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2164 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2168 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2170 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2155 A)
                                            (AF-REF2157 AF)
                                            (IPIV-REF2159 IPIV)
                                            (B-REF2160 B)
                                            (X-REF2162 X)
                                            (FERR-REF2165 FERR)
                                            (BERR-REF2166 BERR)
                                            (WORK-REF2167 WORK)
                                            (RWORK-REF2169 RWORK))
      (%%CHESVX FACT UPLO N-REF2153 NRHS-REF2154 A-REF2155 LDA-REF2156
       AF-REF2157 LDAF-REF2158 IPIV-REF2159 B-REF2160 LDB-REF2161
       X-REF2162 LDX-REF2163 RCOND-REF2164 FERR-REF2165 BERR-REF2166
       WORK-REF2167 LWORK-REF2168 RWORK-REF2169 INFO-REF2170))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYEVR_2STAGE "ssyevr_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYEVR_2STAGE
    (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
     LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVR_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2174 ':INT32) (LDA-REF2176 ':INT32)
                              (VL-REF2177 ':FLOAT) (VU-REF2178 ':FLOAT)
                              (IL-REF2179 ':INT32) (IU-REF2180 ':INT32)
                              (ABSTOL-REF2181 ':FLOAT)
                              (M-REF2182 ':INT32) (LDZ-REF2185 ':INT32)
                              (LWORK-REF2188 ':INT32)
                              (LIWORK-REF2190 ':INT32)
                              (INFO-REF2191 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2174 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2176 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2177 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2178 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2179 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2180 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF2181 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2182 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2185 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2188 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2190 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2191 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2175 A)
                                            (W-REF2183 W)
                                            (Z-REF2184 Z)
                                            (ISUPPZ-REF2186 ISUPPZ)
                                            (WORK-REF2187 WORK)
                                            (IWORK-REF2189 IWORK))
      (%%SSYEVR_2STAGE JOBZ RANGE UPLO N-REF2174 A-REF2175 LDA-REF2176
       VL-REF2177 VU-REF2178 IL-REF2179 IU-REF2180 ABSTOL-REF2181
       M-REF2182 W-REF2183 Z-REF2184 LDZ-REF2185 ISUPPZ-REF2186
       WORK-REF2187 LWORK-REF2188 IWORK-REF2189 LIWORK-REF2190
       INFO-REF2191))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPTRFS "dptrfs_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (DF :FOREIGN-ADDRESS) (EF :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPTRFS
    (N NRHS D E DF EF B LDB X LDX FERR BERR WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTRFS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) EF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2192 ':INT32)
                              (NRHS-REF2193 ':INT32)
                              (LDB-REF2199 ':INT32)
                              (LDX-REF2201 ':INT32)
                              (INFO-REF2205 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2192 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2193 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2199 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2201 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2205 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF2194 D)
                                            (E-REF2195 E)
                                            (DF-REF2196 DF)
                                            (EF-REF2197 EF)
                                            (B-REF2198 B)
                                            (X-REF2200 X)
                                            (FERR-REF2202 FERR)
                                            (BERR-REF2203 BERR)
                                            (WORK-REF2204 WORK))
      (%%DPTRFS N-REF2192 NRHS-REF2193 D-REF2194 E-REF2195 DF-REF2196
       EF-REF2197 B-REF2198 LDB-REF2199 X-REF2200 LDX-REF2201
       FERR-REF2202 BERR-REF2203 WORK-REF2204 INFO-REF2205))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYGST "dsygst_")
  ((ITYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYGST (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2206 ':INT32)
                              (N-REF2208 ':INT32) (LDA-REF2210 ':INT32)
                              (LDB-REF2212 ':INT32)
                              (INFO-REF2213 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2206 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2208 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2210 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2212 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2213 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2209 A)
                                            (B-REF2211 B))
      (%%DSYGST ITYPE-REF2206 UPLO N-REF2208 A-REF2209 LDA-REF2210
       B-REF2211 LDB-REF2212 INFO-REF2213))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPPSV "zppsv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPPSV (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2215 ':INT32)
                              (NRHS-REF2216 ':INT32)
                              (LDB-REF2219 ':INT32)
                              (INFO-REF2220 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2215 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2216 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2219 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2220 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2217 AP)
                                            (B-REF2218 B))
      (%%ZPPSV UPLO N-REF2215 NRHS-REF2216 AP-REF2217 B-REF2218
       LDB-REF2219 INFO-REF2220))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAIC1 "dlaic1_")
  ((JOB :FOREIGN-ADDRESS) (J :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (SEST :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (GAMMA :FOREIGN-ADDRESS) (SESTPR :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAIC1 (JOB J X SEST W GAMMA SESTPR S C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAIC1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SEST)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GAMMA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SESTPR)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF2221 ':INT32) (J-REF2222 ':INT32)
                              (SEST-REF2224 ':DOUBLE)
                              (GAMMA-REF2226 ':DOUBLE)
                              (SESTPR-REF2227 ':DOUBLE)
                              (S-REF2228 ':DOUBLE)
                              (C-REF2229 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF2221 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF J-REF2222 :INT32) J)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF2224 :DOUBLE) SEST)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAMMA-REF2226 :DOUBLE) GAMMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF2227 :DOUBLE) SESTPR)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF2228 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF2229 :DOUBLE) C)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF2223 X)
                                            (W-REF2225 W))
      (%%DLAIC1 JOB-REF2221 J-REF2222 X-REF2223 SEST-REF2224 W-REF2225
       GAMMA-REF2226 SESTPR-REF2227 S-REF2228 C-REF2229))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASWP "slaswp_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (K1 :FOREIGN-ADDRESS) (K2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASWP (N A LDA K1 K2 IPIV INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASWP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2230 ':INT32) (LDA-REF2232 ':INT32)
                              (K1-REF2233 ':INT32) (K2-REF2234 ':INT32)
                              (INCX-REF2236 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2230 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2232 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF2233 :INT32) K1)
    (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF2234 :INT32) K2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2236 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2231 A)
                                            (IPIV-REF2235 IPIV))
      (%%SLASWP N-REF2230 A-REF2231 LDA-REF2232 K1-REF2233 K2-REF2234
       IPIV-REF2235 INCX-REF2236))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_LIN_BERR "cla_lin_berr_")
  ((N :FOREIGN-ADDRESS) (NZ :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_LIN_BERR (N NZ NRHS RES AYB BERR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_LIN_BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2237 ':INT32) (NZ-REF2238 ':INT32)
                              (NRHS-REF2239 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2237 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF2238 :INT32) NZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2239 :INT32) NRHS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF2240 RES)
                                            (AYB-REF2241 AYB)
                                            (BERR-REF2242 BERR))
      (%%CLA_LIN_BERR N-REF2237 NZ-REF2238 NRHS-REF2239 RES-REF2240
       AYB-REF2241 BERR-REF2242))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ILAUPLO "ilauplo_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)) :RETURNING :INT
  :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ILAUPLO (UPLO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAUPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILAUPLO UPLO))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSBEVD_2STAGE "ssbevd_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSBEVD_2STAGE
    (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEVD_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2246 ':INT32) (KD-REF2247 ':INT32)
                              (LDAB-REF2249 ':INT32)
                              (LDZ-REF2252 ':INT32)
                              (LWORK-REF2254 ':INT32)
                              (LIWORK-REF2256 ':INT32)
                              (INFO-REF2257 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2246 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF2247 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2249 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2252 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2254 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2256 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2257 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2248 AB)
                                            (W-REF2250 W)
                                            (Z-REF2251 Z)
                                            (WORK-REF2253 WORK)
                                            (IWORK-REF2255 IWORK))
      (%%SSBEVD_2STAGE JOBZ UPLO N-REF2246 KD-REF2247 AB-REF2248
       LDAB-REF2249 W-REF2250 Z-REF2251 LDZ-REF2252 WORK-REF2253
       LWORK-REF2254 IWORK-REF2255 LIWORK-REF2256 INFO-REF2257))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGETRF "zgetrf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGETRF (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2258 ':INT32) (N-REF2259 ':INT32)
                              (LDA-REF2261 ':INT32)
                              (INFO-REF2263 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2258 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2259 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2261 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2263 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2260 A)
                                            (IPIV-REF2262 IPIV))
      (%%ZGETRF M-REF2258 N-REF2259 A-REF2260 LDA-REF2261 IPIV-REF2262
       INFO-REF2263))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPPTRF "spptrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPPTRF (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2265 ':INT32)
                              (INFO-REF2267 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2265 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2267 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2266 AP))
      (%%SPPTRF UPLO N-REF2265 AP-REF2266 INFO-REF2267))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRS_3 "zsytrs_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2269 ':INT32)
                              (NRHS-REF2270 ':INT32)
                              (LDA-REF2272 ':INT32)
                              (LDB-REF2276 ':INT32)
                              (INFO-REF2277 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2269 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2270 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2272 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2276 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2277 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2271 A)
                                            (E-REF2273 E)
                                            (IPIV-REF2274 IPIV)
                                            (B-REF2275 B))
      (%%ZSYTRS_3 UPLO N-REF2269 NRHS-REF2270 A-REF2271 LDA-REF2272
       E-REF2273 IPIV-REF2274 B-REF2275 LDB-REF2276 INFO-REF2277))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPOEQU "cpoequ_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPOEQU (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOEQU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2278 ':INT32) (LDA-REF2280 ':INT32)
                              (SCOND-REF2282 ':FLOAT)
                              (AMAX-REF2283 ':FLOAT)
                              (INFO-REF2284 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2278 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2280 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF2282 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF2283 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2284 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2279 A)
                                            (S-REF2281 S))
      (%%CPOEQU N-REF2278 A-REF2279 LDA-REF2280 S-REF2281 SCOND-REF2282
       AMAX-REF2283 INFO-REF2284))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLATRD "zlatrd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLATRD (UPLO N NB A LDA E TAU W LDW)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2286 ':INT32) (NB-REF2287 ':INT32)
                              (LDA-REF2289 ':INT32)
                              (LDW-REF2293 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2286 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2287 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2289 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF2293 :INT32) LDW)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2288 A)
                                            (E-REF2290 E)
                                            (TAU-REF2291 TAU)
                                            (W-REF2292 W))
      (%%ZLATRD UPLO N-REF2286 NB-REF2287 A-REF2288 LDA-REF2289
       E-REF2290 TAU-REF2291 W-REF2292 LDW-REF2293))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGBEQUB "zgbequb_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (ROWCND :FOREIGN-ADDRESS)
   (COLCND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGBEQUB
    (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBEQUB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2294 ':INT32) (N-REF2295 ':INT32)
                              (KL-REF2296 ':INT32) (KU-REF2297 ':INT32)
                              (LDAB-REF2299 ':INT32)
                              (ROWCND-REF2302 ':DOUBLE)
                              (COLCND-REF2303 ':DOUBLE)
                              (AMAX-REF2304 ':DOUBLE)
                              (INFO-REF2305 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2294 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2295 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2296 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2297 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2299 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF2302 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF2303 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF2304 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2305 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2298 AB)
                                            (R-REF2300 R)
                                            (C-REF2301 C))
      (%%ZGBEQUB M-REF2294 N-REF2295 KL-REF2296 KU-REF2297 AB-REF2298
       LDAB-REF2299 R-REF2300 C-REF2301 ROWCND-REF2302 COLCND-REF2303
       AMAX-REF2304 INFO-REF2305))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLANSP "dlansp_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLANSP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2308 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2308 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2309 AP)
                                            (WORK-REF2310 WORK))
      (%%DLANSP NORM UPLO N-REF2308 AP-REF2309 WORK-REF2310))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQHP "zlaqhp_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQHP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQHP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2312 ':INT32)
                              (SCOND-REF2315 ':DOUBLE)
                              (AMAX-REF2316 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2312 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF2315 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF2316 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2313 AP)
                                            (S-REF2314 S))
      (%%ZLAQHP UPLO N-REF2312 AP-REF2313 S-REF2314 SCOND-REF2315
       AMAX-REF2316 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_PORCOND_X "cla_porcond_x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_PORCOND_X
    (UPLO N A LDA AF LDAF X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_PORCOND_X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2319 ':INT32) (LDA-REF2321 ':INT32)
                              (LDAF-REF2323 ':INT32)
                              (INFO-REF2325 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2319 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2321 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2323 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2325 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2320 A)
                                            (AF-REF2322 AF)
                                            (X-REF2324 X)
                                            (WORK-REF2326 WORK)
                                            (RWORK-REF2327 RWORK))
      (%%CLA_PORCOND_X UPLO N-REF2319 A-REF2320 LDA-REF2321 AF-REF2322
       LDAF-REF2323 X-REF2324 INFO-REF2325 WORK-REF2326
       RWORK-REF2327))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTF2_ROOK "dsytf2_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTF2_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2329 ':INT32) (LDA-REF2331 ':INT32)
                              (INFO-REF2333 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2329 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2331 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2333 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2330 A)
                                            (IPIV-REF2332 IPIV))
      (%%DSYTF2_ROOK UPLO N-REF2329 A-REF2330 LDA-REF2331 IPIV-REF2332
       INFO-REF2333))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%CSYTRS_AA_2STAGE "csytrs_aa_2stage_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TB :FOREIGN-ADDRESS) (LTB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (IPIV2 :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRS_AA_2STAGE
    (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS_AA_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2335 ':INT32)
                              (NRHS-REF2336 ':INT32)
                              (LDA-REF2338 ':INT32)
                              (LTB-REF2340 ':INT32)
                              (LDB-REF2344 ':INT32)
                              (INFO-REF2345 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2335 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2336 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2338 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF2340 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2344 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2345 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2337 A)
                                            (TB-REF2339 TB)
                                            (IPIV-REF2341 IPIV)
                                            (IPIV2-REF2342 IPIV2)
                                            (B-REF2343 B))
      (%%CSYTRS_AA_2STAGE UPLO N-REF2335 NRHS-REF2336 A-REF2337
       LDA-REF2338 TB-REF2339 LTB-REF2340 IPIV-REF2341 IPIV2-REF2342
       B-REF2343 LDB-REF2344 INFO-REF2345))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTRTI2 "dtrti2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTRTI2 (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTI2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2348 ':INT32) (LDA-REF2350 ':INT32)
                              (INFO-REF2351 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2348 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2350 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2351 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2349 A))
      (%%DTRTI2 UPLO DIAG N-REF2348 A-REF2349 LDA-REF2350
       INFO-REF2351))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHEGVD "chegvd_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHEGVD
    (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK LRWORK IWORK
     LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGVD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2352 ':INT32)
                              (N-REF2355 ':INT32) (LDA-REF2357 ':INT32)
                              (LDB-REF2359 ':INT32)
                              (LWORK-REF2362 ':INT32)
                              (LRWORK-REF2364 ':INT32)
                              (LIWORK-REF2366 ':INT32)
                              (INFO-REF2367 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2352 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2355 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2357 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2359 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2362 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2364 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2366 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2367 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2356 A)
                                            (B-REF2358 B)
                                            (W-REF2360 W)
                                            (WORK-REF2361 WORK)
                                            (RWORK-REF2363 RWORK)
                                            (IWORK-REF2365 IWORK))
      (%%CHEGVD ITYPE-REF2352 JOBZ UPLO N-REF2355 A-REF2356 LDA-REF2357
       B-REF2358 LDB-REF2359 W-REF2360 WORK-REF2361 LWORK-REF2362
       RWORK-REF2363 LRWORK-REF2364 IWORK-REF2365 LIWORK-REF2366
       INFO-REF2367))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STRSEN "strsen_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (WR :FOREIGN-ADDRESS) (WI :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SEP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STRSEN
    (JOB COMPQ SELECT N T LDT Q LDQ WR WI M S SEP WORK LWORK IWORK
     LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRSEN)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SEP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2371 ':INT32) (LDT-REF2373 ':INT32)
                              (LDQ-REF2375 ':INT32) (M-REF2378 ':INT32)
                              (S-REF2379 ':FLOAT) (SEP-REF2380 ':FLOAT)
                              (LWORK-REF2382 ':INT32)
                              (LIWORK-REF2384 ':INT32)
                              (INFO-REF2385 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2371 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF2373 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2375 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2378 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF2379 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF2380 :FLOAT) SEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2382 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2384 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2385 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF2370 SELECT)
                                            (T-REF2372 T)
                                            (Q-REF2374 Q)
                                            (WR-REF2376 WR)
                                            (WI-REF2377 WI)
                                            (WORK-REF2381 WORK)
                                            (IWORK-REF2383 IWORK))
      (%%STRSEN JOB COMPQ SELECT-REF2370 N-REF2371 T-REF2372
       LDT-REF2373 Q-REF2374 LDQ-REF2375 WR-REF2376 WI-REF2377
       M-REF2378 S-REF2379 SEP-REF2380 WORK-REF2381 LWORK-REF2382
       IWORK-REF2383 LIWORK-REF2384 INFO-REF2385))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%CHB2ST_KERNELS "chb2st_kernels_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WANTZ :FOREIGN-ADDRESS) (TTYPE :FOREIGN-ADDRESS)
   (ST :FOREIGN-ADDRESS) (ED :FOREIGN-ADDRESS) (SWEEP :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS) (IB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHB2ST_KERNELS
    (UPLO WANTZ TTYPE ST ED SWEEP N NB IB A LDA V TAU LDVT WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHB2ST_KERNELS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SWEEP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF2387 ':INT32)
                              (TTYPE-REF2388 ':INT32)
                              (ST-REF2389 ':INT32) (ED-REF2390 ':INT32)
                              (SWEEP-REF2391 ':INT32)
                              (N-REF2392 ':INT32) (NB-REF2393 ':INT32)
                              (IB-REF2394 ':INT32)
                              (LDA-REF2396 ':INT32)
                              (LDVT-REF2399 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF2387 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF2388 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF2389 :INT32) ST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF2390 :INT32) ED)
    (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF2391 :INT32) SWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2392 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2393 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF2394 :INT32) IB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2396 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF2399 :INT32) LDVT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2395 A)
                                            (V-REF2397 V)
                                            (TAU-REF2398 TAU)
                                            (WORK-REF2400 WORK))
      (%%CHB2ST_KERNELS UPLO WANTZ-REF2387 TTYPE-REF2388 ST-REF2389
       ED-REF2390 SWEEP-REF2391 N-REF2392 NB-REF2393 IB-REF2394
       A-REF2395 LDA-REF2396 V-REF2397 TAU-REF2398 LDVT-REF2399
       WORK-REF2400))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STFTRI "stftri_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STFTRI (TRANSR UPLO DIAG N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STFTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2404 ':INT32)
                              (INFO-REF2406 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2404 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2406 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2405 A))
      (%%STFTRI TRANSR UPLO DIAG N-REF2404 A-REF2405 INFO-REF2406))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGESVD "sgesvd_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS)
   (LDU :FOREIGN-ADDRESS) (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGESVD
    (JOBU JOBVT M N A LDA S U LDU VT LDVT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2409 ':INT32) (N-REF2410 ':INT32)
                              (LDA-REF2412 ':INT32)
                              (LDU-REF2415 ':INT32)
                              (LDVT-REF2417 ':INT32)
                              (LWORK-REF2419 ':INT32)
                              (INFO-REF2420 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2409 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2410 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2412 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF2415 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF2417 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2419 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2420 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2411 A)
                                            (S-REF2413 S)
                                            (U-REF2414 U)
                                            (VT-REF2416 VT)
                                            (WORK-REF2418 WORK))
      (%%SGESVD JOBU JOBVT M-REF2409 N-REF2410 A-REF2411 LDA-REF2412
       S-REF2413 U-REF2414 LDU-REF2415 VT-REF2416 LDVT-REF2417
       WORK-REF2418 LWORK-REF2419 INFO-REF2420))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGTTS2 "sgtts2_")
  ((ITRANS :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (DU :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGTTS2 (ITRANS N NRHS DL D DU DU2 IPIV B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTTS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF2421 ':INT32)
                              (N-REF2422 ':INT32)
                              (NRHS-REF2423 ':INT32)
                              (LDB-REF2430 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF2421 :INT32) ITRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2422 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2423 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2430 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF2424 DL)
                                            (D-REF2425 D)
                                            (DU-REF2426 DU)
                                            (DU2-REF2427 DU2)
                                            (IPIV-REF2428 IPIV)
                                            (B-REF2429 B))
      (%%SGTTS2 ITRANS-REF2421 N-REF2422 NRHS-REF2423 DL-REF2424
       D-REF2425 DU-REF2426 DU2-REF2427 IPIV-REF2428 B-REF2429
       LDB-REF2430))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTFTTP "ztfttp_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ARF :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTFTTP (TRANSR UPLO N ARF AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTFTTP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    ARF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2433 ':INT32)
                              (INFO-REF2436 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2433 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2436 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF2434 ARF)
                                            (AP-REF2435 AP))
      (%%ZTFTTP TRANSR UPLO N-REF2433 ARF-REF2434 AP-REF2435
       INFO-REF2436))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNM2R "cunm2r_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNM2R (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNM2R)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2439 ':INT32) (N-REF2440 ':INT32)
                              (K-REF2441 ':INT32) (LDA-REF2443 ':INT32)
                              (LDC-REF2446 ':INT32)
                              (INFO-REF2448 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2439 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2440 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2441 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2443 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF2446 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2448 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2442 A)
                                            (TAU-REF2444 TAU)
                                            (C-REF2445 C)
                                            (WORK-REF2447 WORK))
      (%%CUNM2R SIDE TRANS M-REF2439 N-REF2440 K-REF2441 A-REF2442
       LDA-REF2443 TAU-REF2444 C-REF2445 LDC-REF2446 WORK-REF2447
       INFO-REF2448))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGBTF2 "zgbtf2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGBTF2 (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBTF2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2449 ':INT32) (N-REF2450 ':INT32)
                              (KL-REF2451 ':INT32) (KU-REF2452 ':INT32)
                              (LDAB-REF2454 ':INT32)
                              (INFO-REF2456 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2449 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2450 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2451 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2452 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2454 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2456 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2453 AB)
                                            (IPIV-REF2455 IPIV))
      (%%ZGBTF2 M-REF2449 N-REF2450 KL-REF2451 KU-REF2452 AB-REF2453
       LDAB-REF2454 IPIV-REF2455 INFO-REF2456))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYCONV "csyconv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WAY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYCONV (UPLO WAY N A LDA IPIV E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCONV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2459 ':INT32) (LDA-REF2461 ':INT32)
                              (INFO-REF2464 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2459 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2461 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2464 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2460 A)
                                            (IPIV-REF2462 IPIV)
                                            (E-REF2463 E))
      (%%CSYCONV UPLO WAY N-REF2459 A-REF2460 LDA-REF2461 IPIV-REF2462
       E-REF2463 INFO-REF2464))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYCON_3 "ssycon_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYCON_3
    (UPLO N A LDA E IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCON_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2466 ':INT32) (LDA-REF2468 ':INT32)
                              (ANORM-REF2471 ':FLOAT)
                              (RCOND-REF2472 ':FLOAT)
                              (INFO-REF2475 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2466 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2468 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF2471 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2472 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2475 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2467 A)
                                            (E-REF2469 E)
                                            (IPIV-REF2470 IPIV)
                                            (WORK-REF2473 WORK)
                                            (IWORK-REF2474 IWORK))
      (%%SSYCON_3 UPLO N-REF2466 A-REF2467 LDA-REF2468 E-REF2469
       IPIV-REF2470 ANORM-REF2471 RCOND-REF2472 WORK-REF2473
       IWORK-REF2474 INFO-REF2475))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPOTRF "zpotrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPOTRF (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2477 ':INT32) (LDA-REF2479 ':INT32)
                              (INFO-REF2480 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2477 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2479 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2480 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2478 A))
      (%%ZPOTRF UPLO N-REF2477 A-REF2478 LDA-REF2479 INFO-REF2480))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRI_3 "chetri_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2482 ':INT32) (LDA-REF2484 ':INT32)
                              (LWORK-REF2488 ':INT32)
                              (INFO-REF2489 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2482 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2484 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2488 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2489 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2483 A)
                                            (E-REF2485 E)
                                            (IPIV-REF2486 IPIV)
                                            (WORK-REF2487 WORK))
      (%%CHETRI_3 UPLO N-REF2482 A-REF2483 LDA-REF2484 E-REF2485
       IPIV-REF2486 WORK-REF2487 LWORK-REF2488 INFO-REF2489))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLANTR "slantr_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLANTR (NORM UPLO DIAG M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2493 ':INT32) (N-REF2494 ':INT32)
                              (LDA-REF2496 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2493 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2494 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2496 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2495 A)
                                            (WORK-REF2497 WORK))
      (%%SLANTR NORM UPLO DIAG M-REF2493 N-REF2494 A-REF2495
       LDA-REF2496 WORK-REF2497))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORGHR "dorghr_")
  ((N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORGHR (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGHR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2498 ':INT32) (ILO-REF2499 ':INT32)
                              (IHI-REF2500 ':INT32)
                              (LDA-REF2502 ':INT32)
                              (LWORK-REF2505 ':INT32)
                              (INFO-REF2506 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2498 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2499 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2500 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2502 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2505 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2506 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2501 A)
                                            (TAU-REF2503 TAU)
                                            (WORK-REF2504 WORK))
      (%%DORGHR N-REF2498 ILO-REF2499 IHI-REF2500 A-REF2501 LDA-REF2502
       TAU-REF2503 WORK-REF2504 LWORK-REF2505 INFO-REF2506))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGBBRD "sgbbrd_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (NCC :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (PT :FOREIGN-ADDRESS) (LDPT :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGBBRD
    (VECT M N NCC KL KU AB LDAB D E Q LDQ PT LDPT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBBRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDPT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2508 ':INT32) (N-REF2509 ':INT32)
                              (NCC-REF2510 ':INT32)
                              (KL-REF2511 ':INT32) (KU-REF2512 ':INT32)
                              (LDAB-REF2514 ':INT32)
                              (LDQ-REF2518 ':INT32)
                              (LDPT-REF2520 ':INT32)
                              (LDC-REF2522 ':INT32)
                              (INFO-REF2524 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2508 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2509 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF2510 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2511 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2512 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2514 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2518 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF2520 :INT32) LDPT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF2522 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2524 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2513 AB)
                                            (D-REF2515 D)
                                            (E-REF2516 E)
                                            (Q-REF2517 Q)
                                            (PT-REF2519 PT)
                                            (C-REF2521 C)
                                            (WORK-REF2523 WORK))
      (%%SGBBRD VECT M-REF2508 N-REF2509 NCC-REF2510 KL-REF2511
       KU-REF2512 AB-REF2513 LDAB-REF2514 D-REF2515 E-REF2516 Q-REF2517
       LDQ-REF2518 PT-REF2519 LDPT-REF2520 C-REF2521 LDC-REF2522
       WORK-REF2523 INFO-REF2524))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEBAL "dgebal_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEBAL (JOB N A LDA ILO IHI SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBAL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2526 ':INT32) (LDA-REF2528 ':INT32)
                              (ILO-REF2529 ':INT32)
                              (IHI-REF2530 ':INT32)
                              (INFO-REF2532 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2526 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2528 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2529 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2530 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2532 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2527 A)
                                            (SCALE-REF2531 SCALE))
      (%%DGEBAL JOB N-REF2526 A-REF2527 LDA-REF2528 ILO-REF2529
       IHI-REF2530 SCALE-REF2531 INFO-REF2532))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTREVC "ztrevc_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTREVC
    (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTREVC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2536 ':INT32) (LDT-REF2538 ':INT32)
                              (LDVL-REF2540 ':INT32)
                              (LDVR-REF2542 ':INT32)
                              (MM-REF2543 ':INT32) (M-REF2544 ':INT32)
                              (INFO-REF2547 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2536 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF2538 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF2540 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF2542 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF2543 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2544 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2547 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF2535 SELECT)
                                            (T-REF2537 T)
                                            (VL-REF2539 VL)
                                            (VR-REF2541 VR)
                                            (WORK-REF2545 WORK)
                                            (RWORK-REF2546 RWORK))
      (%%ZTREVC SIDE HOWMNY SELECT-REF2535 N-REF2536 T-REF2537
       LDT-REF2538 VL-REF2539 LDVL-REF2540 VR-REF2541 LDVR-REF2542
       MM-REF2543 M-REF2544 WORK-REF2545 RWORK-REF2546 INFO-REF2547))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTGSJA "ctgsja_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (P :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (TOLA :FOREIGN-ADDRESS)
   (TOLB :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (NCYCLE :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTGSJA
    (JOBU JOBV JOBQ M P N K L A LDA B LDB TOLA TOLB ALPHA BETA U LDU V
     LDV Q LDQ WORK NCYCLE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSJA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2551 ':INT32) (P-REF2552 ':INT32)
                              (N-REF2553 ':INT32) (K-REF2554 ':INT32)
                              (L-REF2555 ':INT32) (LDA-REF2557 ':INT32)
                              (LDB-REF2559 ':INT32)
                              (TOLA-REF2560 ':FLOAT)
                              (TOLB-REF2561 ':FLOAT)
                              (LDU-REF2565 ':INT32)
                              (LDV-REF2567 ':INT32)
                              (LDQ-REF2569 ':INT32)
                              (NCYCLE-REF2571 ':INT32)
                              (INFO-REF2572 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2551 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF2552 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2553 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2554 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF2555 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2557 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2559 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF2560 :FLOAT) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF2561 :FLOAT) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF2565 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF2567 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2569 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF2571 :INT32) NCYCLE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2572 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2556 A)
                                            (B-REF2558 B)
                                            (ALPHA-REF2562 ALPHA)
                                            (BETA-REF2563 BETA)
                                            (U-REF2564 U)
                                            (V-REF2566 V)
                                            (Q-REF2568 Q)
                                            (WORK-REF2570 WORK))
      (%%CTGSJA JOBU JOBV JOBQ M-REF2551 P-REF2552 N-REF2553 K-REF2554
       L-REF2555 A-REF2556 LDA-REF2557 B-REF2558 LDB-REF2559
       TOLA-REF2560 TOLB-REF2561 ALPHA-REF2562 BETA-REF2563 U-REF2564
       LDU-REF2565 V-REF2566 LDV-REF2567 Q-REF2568 LDQ-REF2569
       WORK-REF2570 NCYCLE-REF2571 INFO-REF2572))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLANTP "dlantp_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLANTP (NORM UPLO DIAG N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANTP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2576 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2576 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2577 AP)
                                            (WORK-REF2578 WORK))
      (%%DLANTP NORM UPLO DIAG N-REF2576 AP-REF2577 WORK-REF2578))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEJSV "dgejsv_")
  ((JOBA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBP (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (SVA :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEJSV
    (JOBA JOBU JOBV JOBR JOBT JOBP M N A LDA SVA U LDU V LDV WORK LWORK
     IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEJSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SVA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2585 ':INT32) (N-REF2586 ':INT32)
                              (LDA-REF2588 ':INT32)
                              (LDU-REF2591 ':INT32)
                              (LDV-REF2593 ':INT32)
                              (LWORK-REF2595 ':INT32)
                              (INFO-REF2597 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2585 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2586 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2588 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF2591 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF2593 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2595 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2597 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2587 A)
                                            (SVA-REF2589 SVA)
                                            (U-REF2590 U)
                                            (V-REF2592 V)
                                            (WORK-REF2594 WORK)
                                            (IWORK-REF2596 IWORK))
      (%%DGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF2585 N-REF2586
       A-REF2587 LDA-REF2588 SVA-REF2589 U-REF2590 LDU-REF2591
       V-REF2592 LDV-REF2593 WORK-REF2594 LWORK-REF2595 IWORK-REF2596
       INFO-REF2597))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNMRQ "cunmrq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNMRQ
    (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMRQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2600 ':INT32) (N-REF2601 ':INT32)
                              (K-REF2602 ':INT32) (LDA-REF2604 ':INT32)
                              (LDC-REF2607 ':INT32)
                              (LWORK-REF2609 ':INT32)
                              (INFO-REF2610 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2600 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2601 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2602 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2604 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF2607 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2609 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2610 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2603 A)
                                            (TAU-REF2605 TAU)
                                            (C-REF2606 C)
                                            (WORK-REF2608 WORK))
      (%%CUNMRQ SIDE TRANS M-REF2600 N-REF2601 K-REF2602 A-REF2603
       LDA-REF2604 TAU-REF2605 C-REF2606 LDC-REF2607 WORK-REF2608
       LWORK-REF2609 INFO-REF2610))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGSVJ1 "sgsvj1_")
  ((JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (SVA :FOREIGN-ADDRESS)
   (MV :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (EPS :FOREIGN-ADDRESS) (SFMIN :FOREIGN-ADDRESS)
   (TOL :FOREIGN-ADDRESS) (NSWEEP :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGSVJ1
    (JOBV M N N1 A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGSVJ1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SVA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SFMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2612 ':INT32) (N-REF2613 ':INT32)
                              (N1-REF2614 ':INT32)
                              (LDA-REF2616 ':INT32)
                              (MV-REF2619 ':INT32)
                              (LDV-REF2621 ':INT32)
                              (EPS-REF2622 ':FLOAT)
                              (SFMIN-REF2623 ':FLOAT)
                              (TOL-REF2624 ':FLOAT)
                              (NSWEEP-REF2625 ':INT32)
                              (LWORK-REF2627 ':INT32)
                              (INFO-REF2628 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2612 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2613 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF2614 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2616 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF2619 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF2621 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF2622 :FLOAT) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF2623 :FLOAT) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF2624 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF2625 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2627 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2628 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2615 A)
                                            (D-REF2617 D)
                                            (SVA-REF2618 SVA)
                                            (V-REF2620 V)
                                            (WORK-REF2626 WORK))
      (%%SGSVJ1 JOBV M-REF2612 N-REF2613 N1-REF2614 A-REF2615
       LDA-REF2616 D-REF2617 SVA-REF2618 MV-REF2619 V-REF2620
       LDV-REF2621 EPS-REF2622 SFMIN-REF2623 TOL-REF2624 NSWEEP-REF2625
       WORK-REF2626 LWORK-REF2627 INFO-REF2628))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPBSTF "cpbstf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPBSTF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBSTF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2630 ':INT32) (KD-REF2631 ':INT32)
                              (LDAB-REF2633 ':INT32)
                              (INFO-REF2634 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2630 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF2631 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2633 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2634 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2632 AB))
      (%%CPBSTF UPLO N-REF2630 KD-REF2631 AB-REF2632 LDAB-REF2633
       INFO-REF2634))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTGSNA "ctgsna_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (DIF :FOREIGN-ADDRESS)
   (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTGSNA
    (JOB HOWMNY SELECT N A LDA B LDB VL LDVL VR LDVR S DIF MM M WORK
     LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSNA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2638 ':INT32) (LDA-REF2640 ':INT32)
                              (LDB-REF2642 ':INT32)
                              (LDVL-REF2644 ':INT32)
                              (LDVR-REF2646 ':INT32)
                              (MM-REF2649 ':INT32) (M-REF2650 ':INT32)
                              (LWORK-REF2652 ':INT32)
                              (INFO-REF2654 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2638 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2640 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2642 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF2644 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF2646 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF2649 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2650 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2652 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2654 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF2637 SELECT)
                                            (A-REF2639 A)
                                            (B-REF2641 B)
                                            (VL-REF2643 VL)
                                            (VR-REF2645 VR)
                                            (S-REF2647 S)
                                            (DIF-REF2648 DIF)
                                            (WORK-REF2651 WORK)
                                            (IWORK-REF2653 IWORK))
      (%%CTGSNA JOB HOWMNY SELECT-REF2637 N-REF2638 A-REF2639
       LDA-REF2640 B-REF2641 LDB-REF2642 VL-REF2643 LDVL-REF2644
       VR-REF2645 LDVR-REF2646 S-REF2647 DIF-REF2648 MM-REF2649
       M-REF2650 WORK-REF2651 LWORK-REF2652 IWORK-REF2653
       INFO-REF2654))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGBRFSX "cgbrfsx_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGBRFSX
    (TRANS EQUED N KL KU NRHS AB LDAB AFB LDAFB IPIV R C B LDB X LDX
     RCOND BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
     WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBRFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2657 ':INT32) (KL-REF2658 ':INT32)
                              (KU-REF2659 ':INT32)
                              (NRHS-REF2660 ':INT32)
                              (LDAB-REF2662 ':INT32)
                              (LDAFB-REF2664 ':INT32)
                              (LDB-REF2669 ':INT32)
                              (LDX-REF2671 ':INT32)
                              (RCOND-REF2672 ':FLOAT)
                              (N_ERR_BNDS-REF2674 ':INT32)
                              (NPARAMS-REF2677 ':INT32)
                              (INFO-REF2681 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2657 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2658 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2659 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2660 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2662 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2664 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2669 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2671 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2672 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF2674 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF2677 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2681 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2661 AB)
                                            (AFB-REF2663 AFB)
                                            (IPIV-REF2665 IPIV)
                                            (R-REF2666 R)
                                            (C-REF2667 C)
                                            (B-REF2668 B)
                                            (X-REF2670 X)
                                            (BERR-REF2673 BERR)
                                            (ERR_BNDS_NORM-REF2675
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF2676
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF2678 PARAMS)
                                            (WORK-REF2679 WORK)
                                            (RWORK-REF2680 RWORK))
      (%%CGBRFSX TRANS EQUED N-REF2657 KL-REF2658 KU-REF2659
       NRHS-REF2660 AB-REF2661 LDAB-REF2662 AFB-REF2663 LDAFB-REF2664
       IPIV-REF2665 R-REF2666 C-REF2667 B-REF2668 LDB-REF2669 X-REF2670
       LDX-REF2671 RCOND-REF2672 BERR-REF2673 N_ERR_BNDS-REF2674
       ERR_BNDS_NORM-REF2675 ERR_BNDS_COMP-REF2676 NPARAMS-REF2677
       PARAMS-REF2678 WORK-REF2679 RWORK-REF2680 INFO-REF2681))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRI_3X "ssytri_3x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI_3X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2683 ':INT32) (LDA-REF2685 ':INT32)
                              (NB-REF2689 ':INT32)
                              (INFO-REF2690 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2683 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2685 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2689 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2690 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2684 A)
                                            (E-REF2686 E)
                                            (IPIV-REF2687 IPIV)
                                            (WORK-REF2688 WORK))
      (%%SSYTRI_3X UPLO N-REF2683 A-REF2684 LDA-REF2685 E-REF2686
       IPIV-REF2687 WORK-REF2688 NB-REF2689 INFO-REF2690))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORMRQ "dormrq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORMRQ
    (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMRQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2693 ':INT32) (N-REF2694 ':INT32)
                              (K-REF2695 ':INT32) (LDA-REF2697 ':INT32)
                              (LDC-REF2700 ':INT32)
                              (LWORK-REF2702 ':INT32)
                              (INFO-REF2703 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2693 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2694 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2695 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2697 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF2700 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2702 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2703 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2696 A)
                                            (TAU-REF2698 TAU)
                                            (C-REF2699 C)
                                            (WORK-REF2701 WORK))
      (%%DORMRQ SIDE TRANS M-REF2693 N-REF2694 K-REF2695 A-REF2696
       LDA-REF2697 TAU-REF2698 C-REF2699 LDC-REF2700 WORK-REF2701
       LWORK-REF2702 INFO-REF2703))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSBEV "ssbev_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSBEV (JOBZ UPLO N KD AB LDAB W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2706 ':INT32) (KD-REF2707 ':INT32)
                              (LDAB-REF2709 ':INT32)
                              (LDZ-REF2712 ':INT32)
                              (INFO-REF2714 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2706 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF2707 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2709 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2712 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2714 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2708 AB)
                                            (W-REF2710 W)
                                            (Z-REF2711 Z)
                                            (WORK-REF2713 WORK))
      (%%SSBEV JOBZ UPLO N-REF2706 KD-REF2707 AB-REF2708 LDAB-REF2709
       W-REF2710 Z-REF2711 LDZ-REF2712 WORK-REF2713 INFO-REF2714))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEJSV "cgejsv_")
  ((JOBA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBP (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (SVA :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (CWORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEJSV
    (JOBA JOBU JOBV JOBR JOBT JOBP M N A LDA SVA U LDU V LDV CWORK
     LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEJSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SVA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    CWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2721 ':INT32) (N-REF2722 ':INT32)
                              (LDA-REF2724 ':INT32)
                              (LDU-REF2727 ':INT32)
                              (LDV-REF2729 ':INT32)
                              (LWORK-REF2731 ':INT32)
                              (LRWORK-REF2733 ':INT32)
                              (INFO-REF2735 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2721 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2722 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2724 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF2727 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF2729 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2731 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2733 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2735 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2723 A)
                                            (SVA-REF2725 SVA)
                                            (U-REF2726 U)
                                            (V-REF2728 V)
                                            (CWORK-REF2730 CWORK)
                                            (RWORK-REF2732 RWORK)
                                            (IWORK-REF2734 IWORK))
      (%%CGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF2721 N-REF2722
       A-REF2723 LDA-REF2724 SVA-REF2725 U-REF2726 LDU-REF2727
       V-REF2728 LDV-REF2729 CWORK-REF2730 LWORK-REF2731 RWORK-REF2732
       LRWORK-REF2733 IWORK-REF2734 INFO-REF2735))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLALSA "dlalsa_")
  ((ICOMPQ :FOREIGN-ADDRESS) (SMLSIZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (BX :FOREIGN-ADDRESS) (LDBX :FOREIGN-ADDRESS)
   (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS) (VT :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (DIFL :FOREIGN-ADDRESS) (DIFR :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (POLES :FOREIGN-ADDRESS)
   (GIVPTR :FOREIGN-ADDRESS) (GIVCOL :FOREIGN-ADDRESS)
   (LDGCOL :FOREIGN-ADDRESS) (PERM :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLALSA
    (ICOMPQ SMLSIZ N NRHS B LDB BX LDBX U LDU VT K DIFL DIFR Z POLES
     GIVPTR GIVCOL LDGCOL PERM GIVNUM C S WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALSA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIFL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIFR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) POLES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF2736 ':INT32)
                              (SMLSIZ-REF2737 ':INT32)
                              (N-REF2738 ':INT32)
                              (NRHS-REF2739 ':INT32)
                              (LDB-REF2741 ':INT32)
                              (LDBX-REF2743 ':INT32)
                              (LDU-REF2745 ':INT32)
                              (LDGCOL-REF2754 ':INT32)
                              (INFO-REF2761 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF2736 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF2737 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2738 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2739 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2741 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF2743 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF2745 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF2754 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2761 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF2740 B)
                                            (BX-REF2742 BX)
                                            (U-REF2744 U)
                                            (VT-REF2746 VT)
                                            (K-REF2747 K)
                                            (DIFL-REF2748 DIFL)
                                            (DIFR-REF2749 DIFR)
                                            (Z-REF2750 Z)
                                            (POLES-REF2751 POLES)
                                            (GIVPTR-REF2752 GIVPTR)
                                            (GIVCOL-REF2753 GIVCOL)
                                            (PERM-REF2755 PERM)
                                            (GIVNUM-REF2756 GIVNUM)
                                            (C-REF2757 C)
                                            (S-REF2758 S)
                                            (WORK-REF2759 WORK)
                                            (IWORK-REF2760 IWORK))
      (%%DLALSA ICOMPQ-REF2736 SMLSIZ-REF2737 N-REF2738 NRHS-REF2739
       B-REF2740 LDB-REF2741 BX-REF2742 LDBX-REF2743 U-REF2744
       LDU-REF2745 VT-REF2746 K-REF2747 DIFL-REF2748 DIFR-REF2749
       Z-REF2750 POLES-REF2751 GIVPTR-REF2752 GIVCOL-REF2753
       LDGCOL-REF2754 PERM-REF2755 GIVNUM-REF2756 C-REF2757 S-REF2758
       WORK-REF2759 IWORK-REF2760 INFO-REF2761))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPTTRS "spttrs_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPTTRS (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTTRS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2762 ':INT32)
                              (NRHS-REF2763 ':INT32)
                              (LDB-REF2767 ':INT32)
                              (INFO-REF2768 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2762 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2763 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2767 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2768 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF2764 D)
                                            (E-REF2765 E)
                                            (B-REF2766 B))
      (%%SPTTRS N-REF2762 NRHS-REF2763 D-REF2764 E-REF2765 B-REF2766
       LDB-REF2767 INFO-REF2768))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTGSJA "dtgsja_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (P :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (TOLA :FOREIGN-ADDRESS)
   (TOLB :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (NCYCLE :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTGSJA
    (JOBU JOBV JOBQ M P N K L A LDA B LDB TOLA TOLB ALPHA BETA U LDU V
     LDV Q LDQ WORK NCYCLE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGSJA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2772 ':INT32) (P-REF2773 ':INT32)
                              (N-REF2774 ':INT32) (K-REF2775 ':INT32)
                              (L-REF2776 ':INT32) (LDA-REF2778 ':INT32)
                              (LDB-REF2780 ':INT32)
                              (TOLA-REF2781 ':DOUBLE)
                              (TOLB-REF2782 ':DOUBLE)
                              (LDU-REF2786 ':INT32)
                              (LDV-REF2788 ':INT32)
                              (LDQ-REF2790 ':INT32)
                              (NCYCLE-REF2792 ':INT32)
                              (INFO-REF2793 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2772 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF2773 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2774 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2775 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF2776 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2778 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2780 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF2781 :DOUBLE) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF2782 :DOUBLE) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF2786 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF2788 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2790 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF2792 :INT32) NCYCLE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2793 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2777 A)
                                            (B-REF2779 B)
                                            (ALPHA-REF2783 ALPHA)
                                            (BETA-REF2784 BETA)
                                            (U-REF2785 U)
                                            (V-REF2787 V)
                                            (Q-REF2789 Q)
                                            (WORK-REF2791 WORK))
      (%%DTGSJA JOBU JOBV JOBQ M-REF2772 P-REF2773 N-REF2774 K-REF2775
       L-REF2776 A-REF2777 LDA-REF2778 B-REF2779 LDB-REF2780
       TOLA-REF2781 TOLB-REF2782 ALPHA-REF2783 BETA-REF2784 U-REF2785
       LDU-REF2786 V-REF2787 LDV-REF2788 Q-REF2789 LDQ-REF2790
       WORK-REF2791 NCYCLE-REF2792 INFO-REF2793))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAHQR "zlahqr_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAHQR
    (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF2794 ':INT32)
                              (WANTZ-REF2795 ':INT32)
                              (N-REF2796 ':INT32) (ILO-REF2797 ':INT32)
                              (IHI-REF2798 ':INT32)
                              (LDH-REF2800 ':INT32)
                              (ILOZ-REF2802 ':INT32)
                              (IHIZ-REF2803 ':INT32)
                              (LDZ-REF2805 ':INT32)
                              (INFO-REF2806 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF2794 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF2795 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2796 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2797 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2798 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2800 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF2802 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF2803 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2805 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2806 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2799 H)
                                            (W-REF2801 W)
                                            (Z-REF2804 Z))
      (%%ZLAHQR WANTT-REF2794 WANTZ-REF2795 N-REF2796 ILO-REF2797
       IHI-REF2798 H-REF2799 LDH-REF2800 W-REF2801 ILOZ-REF2802
       IHIZ-REF2803 Z-REF2804 LDZ-REF2805 INFO-REF2806))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSTEIN "dstein_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (IBLOCK :FOREIGN-ADDRESS)
   (ISPLIT :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSTEIN
    (N D E M W IBLOCK ISPLIT Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IBLOCK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2807 ':INT32) (M-REF2810 ':INT32)
                              (LDZ-REF2815 ':INT32)
                              (INFO-REF2819 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2807 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2810 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2815 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2819 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF2808 D)
                                            (E-REF2809 E)
                                            (W-REF2811 W)
                                            (IBLOCK-REF2812 IBLOCK)
                                            (ISPLIT-REF2813 ISPLIT)
                                            (Z-REF2814 Z)
                                            (WORK-REF2816 WORK)
                                            (IWORK-REF2817 IWORK)
                                            (IFAIL-REF2818 IFAIL))
      (%%DSTEIN N-REF2807 D-REF2808 E-REF2809 M-REF2810 W-REF2811
       IBLOCK-REF2812 ISPLIT-REF2813 Z-REF2814 LDZ-REF2815 WORK-REF2816
       IWORK-REF2817 IFAIL-REF2818 INFO-REF2819))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGGBAL "zggbal_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (LSCALE :FOREIGN-ADDRESS) (RSCALE :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGGBAL
    (JOB N A LDA B LDB ILO IHI LSCALE RSCALE WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGBAL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2821 ':INT32) (LDA-REF2823 ':INT32)
                              (LDB-REF2825 ':INT32)
                              (ILO-REF2826 ':INT32)
                              (IHI-REF2827 ':INT32)
                              (INFO-REF2831 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2821 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2823 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2825 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2826 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2827 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2831 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2822 A)
                                            (B-REF2824 B)
                                            (LSCALE-REF2828 LSCALE)
                                            (RSCALE-REF2829 RSCALE)
                                            (WORK-REF2830 WORK))
      (%%ZGGBAL JOB N-REF2821 A-REF2822 LDA-REF2823 B-REF2824
       LDB-REF2825 ILO-REF2826 IHI-REF2827 LSCALE-REF2828
       RSCALE-REF2829 WORK-REF2830 INFO-REF2831))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLANTB "slantb_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLANTB (NORM UPLO DIAG N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANTB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2835 ':INT32) (K-REF2836 ':INT32)
                              (LDAB-REF2838 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2835 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2836 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2838 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2837 AB)
                                            (WORK-REF2839 WORK))
      (%%SLANTB NORM UPLO DIAG N-REF2835 K-REF2836 AB-REF2837
       LDAB-REF2838 WORK-REF2839))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTRTTP "dtrttp_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTRTTP (UPLO N A LDA AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTTP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2841 ':INT32) (LDA-REF2843 ':INT32)
                              (INFO-REF2845 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2841 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2843 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2845 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2842 A)
                                            (AP-REF2844 AP))
      (%%DTRTTP UPLO N-REF2841 A-REF2842 LDA-REF2843 AP-REF2844
       INFO-REF2845))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLABRD "clabrd_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAUQ :FOREIGN-ADDRESS) (TAUP :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (LDY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLABRD (M N NB A LDA D E TAUQ TAUP X LDX Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLABRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2846 ':INT32) (N-REF2847 ':INT32)
                              (NB-REF2848 ':INT32)
                              (LDA-REF2850 ':INT32)
                              (LDX-REF2856 ':INT32)
                              (LDY-REF2858 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2846 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2847 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2848 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2850 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2856 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2858 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2849 A)
                                            (D-REF2851 D)
                                            (E-REF2852 E)
                                            (TAUQ-REF2853 TAUQ)
                                            (TAUP-REF2854 TAUP)
                                            (X-REF2855 X)
                                            (Y-REF2857 Y))
      (%%CLABRD M-REF2846 N-REF2847 NB-REF2848 A-REF2849 LDA-REF2850
       D-REF2851 E-REF2852 TAUQ-REF2853 TAUP-REF2854 X-REF2855
       LDX-REF2856 Y-REF2857 LDY-REF2858))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYCONV "dsyconv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WAY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYCONV (UPLO WAY N A LDA IPIV E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCONV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2861 ':INT32) (LDA-REF2863 ':INT32)
                              (INFO-REF2866 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2861 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2863 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2866 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2862 A)
                                            (IPIV-REF2864 IPIV)
                                            (E-REF2865 E))
      (%%DSYCONV UPLO WAY N-REF2861 A-REF2862 LDA-REF2863 IPIV-REF2864
       E-REF2865 INFO-REF2866))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEEQUB "zgeequb_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (ROWCND :FOREIGN-ADDRESS) (COLCND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEEQUB (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEEQUB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2867 ':INT32) (N-REF2868 ':INT32)
                              (LDA-REF2870 ':INT32)
                              (ROWCND-REF2873 ':DOUBLE)
                              (COLCND-REF2874 ':DOUBLE)
                              (AMAX-REF2875 ':DOUBLE)
                              (INFO-REF2876 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2867 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2868 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2870 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF2873 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF2874 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF2875 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2876 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2869 A)
                                            (R-REF2871 R)
                                            (C-REF2872 C))
      (%%ZGEEQUB M-REF2867 N-REF2868 A-REF2869 LDA-REF2870 R-REF2871
       C-REF2872 ROWCND-REF2873 COLCND-REF2874 AMAX-REF2875
       INFO-REF2876))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASYF_AA "slasyf_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (J1 :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASYF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASYF_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF2878 ':INT32) (M-REF2879 ':INT32)
                              (NB-REF2880 ':INT32)
                              (LDA-REF2882 ':INT32)
                              (LDH-REF2885 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF2878 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2879 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2880 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2882 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2885 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2881 A)
                                            (IPIV-REF2883 IPIV)
                                            (H-REF2884 H)
                                            (WORK-REF2886 WORK))
      (%%SLASYF_AA UPLO J1-REF2878 M-REF2879 NB-REF2880 A-REF2881
       LDA-REF2882 IPIV-REF2883 H-REF2884 LDH-REF2885 WORK-REF2886))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGERFSX "dgerfsx_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGERFSX
    (TRANS EQUED N NRHS A LDA AF LDAF IPIV R C B LDB X LDX RCOND BERR
     N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2889 ':INT32)
                              (NRHS-REF2890 ':INT32)
                              (LDA-REF2892 ':INT32)
                              (LDAF-REF2894 ':INT32)
                              (LDB-REF2899 ':INT32)
                              (LDX-REF2901 ':INT32)
                              (RCOND-REF2902 ':DOUBLE)
                              (N_ERR_BNDS-REF2904 ':INT32)
                              (NPARAMS-REF2907 ':INT32)
                              (INFO-REF2911 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2889 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2890 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2892 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2894 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2899 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2901 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2902 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF2904 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF2907 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2911 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2891 A)
                                            (AF-REF2893 AF)
                                            (IPIV-REF2895 IPIV)
                                            (R-REF2896 R)
                                            (C-REF2897 C)
                                            (B-REF2898 B)
                                            (X-REF2900 X)
                                            (BERR-REF2903 BERR)
                                            (ERR_BNDS_NORM-REF2905
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF2906
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF2908 PARAMS)
                                            (WORK-REF2909 WORK)
                                            (IWORK-REF2910 IWORK))
      (%%DGERFSX TRANS EQUED N-REF2889 NRHS-REF2890 A-REF2891
       LDA-REF2892 AF-REF2893 LDAF-REF2894 IPIV-REF2895 R-REF2896
       C-REF2897 B-REF2898 LDB-REF2899 X-REF2900 LDX-REF2901
       RCOND-REF2902 BERR-REF2903 N_ERR_BNDS-REF2904
       ERR_BNDS_NORM-REF2905 ERR_BNDS_COMP-REF2906 NPARAMS-REF2907
       PARAMS-REF2908 WORK-REF2909 IWORK-REF2910 INFO-REF2911))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGTSV "sgtsv_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGTSV (N NRHS DL D DU B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTSV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2912 ':INT32)
                              (NRHS-REF2913 ':INT32)
                              (LDB-REF2918 ':INT32)
                              (INFO-REF2919 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2912 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2913 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2918 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2919 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF2914 DL)
                                            (D-REF2915 D)
                                            (DU-REF2916 DU)
                                            (B-REF2917 B))
      (%%SGTSV N-REF2912 NRHS-REF2913 DL-REF2914 D-REF2915 DU-REF2916
       B-REF2917 LDB-REF2918 INFO-REF2919))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORMR3 "sormr3_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORMR3
    (SIDE TRANS M N K L A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMR3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2922 ':INT32) (N-REF2923 ':INT32)
                              (K-REF2924 ':INT32) (L-REF2925 ':INT32)
                              (LDA-REF2927 ':INT32)
                              (LDC-REF2930 ':INT32)
                              (INFO-REF2932 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2922 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2923 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2924 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF2925 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2927 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF2930 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2932 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2926 A)
                                            (TAU-REF2928 TAU)
                                            (C-REF2929 C)
                                            (WORK-REF2931 WORK))
      (%%SORMR3 SIDE TRANS M-REF2922 N-REF2923 K-REF2924 L-REF2925
       A-REF2926 LDA-REF2927 TAU-REF2928 C-REF2929 LDC-REF2930
       WORK-REF2931 INFO-REF2932))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%ZLAUNHR_COL_GETRFNP "zlaunhr_col_getrfnp_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAUNHR_COL_GETRFNP (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAUNHR_COL_GETRFNP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2933 ':INT32) (N-REF2934 ':INT32)
                              (LDA-REF2936 ':INT32)
                              (INFO-REF2938 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2933 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2934 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2936 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2938 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2935 A)
                                            (D-REF2937 D))
      (%%ZLAUNHR_COL_GETRFNP M-REF2933 N-REF2934 A-REF2935 LDA-REF2936
       D-REF2937 INFO-REF2938))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLADIV "dladiv_")
  ((A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLADIV (A B C D P Q)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLADIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT P)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Q))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF2939 ':DOUBLE) (B-REF2940 ':DOUBLE)
                              (C-REF2941 ':DOUBLE) (D-REF2942 ':DOUBLE)
                              (P-REF2943 ':DOUBLE)
                              (Q-REF2944 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF2939 :DOUBLE) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF2940 :DOUBLE) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF2941 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF D-REF2942 :DOUBLE) D)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF2943 :DOUBLE) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF2944 :DOUBLE) Q)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLADIV A-REF2939 B-REF2940 C-REF2941 D-REF2942 P-REF2943
       Q-REF2944))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTRF_AA "csytrf_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2946 ':INT32) (LDA-REF2948 ':INT32)
                              (LWORK-REF2951 ':INT32)
                              (INFO-REF2952 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2946 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2948 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2951 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2952 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2947 A)
                                            (IPIV-REF2949 IPIV)
                                            (WORK-REF2950 WORK))
      (%%CSYTRF_AA UPLO N-REF2946 A-REF2947 LDA-REF2948 IPIV-REF2949
       WORK-REF2950 LWORK-REF2951 INFO-REF2952))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASD3 "slasd3_")
  ((NL :FOREIGN-ADDRESS) (NR :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (DSIGMA :FOREIGN-ADDRESS)
   (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS) (U2 :FOREIGN-ADDRESS)
   (LDU2 :FOREIGN-ADDRESS) (VT :FOREIGN-ADDRESS)
   (LDVT :FOREIGN-ADDRESS) (VT2 :FOREIGN-ADDRESS)
   (LDVT2 :FOREIGN-ADDRESS) (IDXC :FOREIGN-ADDRESS)
   (CTOT :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASD3
    (NL NR SQRE K D Q LDQ DSIGMA U LDU U2 LDU2 VT LDVT VT2 LDVT2 IDXC
     CTOT Z INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DSIGMA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    CTOT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF2953 ':INT32) (NR-REF2954 ':INT32)
                              (SQRE-REF2955 ':INT32)
                              (K-REF2956 ':INT32) (LDQ-REF2959 ':INT32)
                              (LDU-REF2962 ':INT32)
                              (LDU2-REF2964 ':INT32)
                              (LDVT-REF2966 ':INT32)
                              (LDVT2-REF2968 ':INT32)
                              (INFO-REF2972 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF2953 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF2954 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF2955 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2956 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2959 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF2962 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF2964 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF2966 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF2968 :INT32) LDVT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2972 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF2957 D)
                                            (Q-REF2958 Q)
                                            (DSIGMA-REF2960 DSIGMA)
                                            (U-REF2961 U)
                                            (U2-REF2963 U2)
                                            (VT-REF2965 VT)
                                            (VT2-REF2967 VT2)
                                            (IDXC-REF2969 IDXC)
                                            (CTOT-REF2970 CTOT)
                                            (Z-REF2971 Z))
      (%%SLASD3 NL-REF2953 NR-REF2954 SQRE-REF2955 K-REF2956 D-REF2957
       Q-REF2958 LDQ-REF2959 DSIGMA-REF2960 U-REF2961 LDU-REF2962
       U2-REF2963 LDU2-REF2964 VT-REF2965 LDVT-REF2966 VT2-REF2967
       LDVT2-REF2968 IDXC-REF2969 CTOT-REF2970 Z-REF2971
       INFO-REF2972))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASSQ "slassq_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (SUMSQ :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASSQ (N X INCX SCALE SUMSQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASSQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SUMSQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2973 ':INT32)
                              (INCX-REF2975 ':INT32)
                              (SCALE-REF2976 ':FLOAT)
                              (SUMSQ-REF2977 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2973 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2975 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF2976 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF2977 :FLOAT) SUMSQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF2974 X))
      (%%SLASSQ N-REF2973 X-REF2974 INCX-REF2975 SCALE-REF2976
       SUMSQ-REF2977))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNGL2 "zungl2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNGL2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2978 ':INT32) (N-REF2979 ':INT32)
                              (K-REF2980 ':INT32) (LDA-REF2982 ':INT32)
                              (INFO-REF2985 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2978 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2979 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2980 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2982 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2985 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2981 A)
                                            (TAU-REF2983 TAU)
                                            (WORK-REF2984 WORK))
      (%%ZUNGL2 M-REF2978 N-REF2979 K-REF2980 A-REF2981 LDA-REF2982
       TAU-REF2983 WORK-REF2984 INFO-REF2985))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASD8 "dlasd8_")
  ((ICOMPQ :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (VF :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (DIFL :FOREIGN-ADDRESS) (DIFR :FOREIGN-ADDRESS)
   (LDDIFR :FOREIGN-ADDRESS) (DSIGMA :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASD8
    (ICOMPQ K D Z VF VL DIFL DIFR LDDIFR DSIGMA WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD8)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIFL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIFR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDDIFR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DSIGMA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF2986 ':INT32)
                              (K-REF2987 ':INT32)
                              (LDDIFR-REF2994 ':INT32)
                              (INFO-REF2997 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF2986 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2987 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDDIFR-REF2994 :INT32) LDDIFR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2997 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF2988 D)
                                            (Z-REF2989 Z)
                                            (VF-REF2990 VF)
                                            (VL-REF2991 VL)
                                            (DIFL-REF2992 DIFL)
                                            (DIFR-REF2993 DIFR)
                                            (DSIGMA-REF2995 DSIGMA)
                                            (WORK-REF2996 WORK))
      (%%DLASD8 ICOMPQ-REF2986 K-REF2987 D-REF2988 Z-REF2989 VF-REF2990
       VL-REF2991 DIFL-REF2992 DIFR-REF2993 LDDIFR-REF2994
       DSIGMA-REF2995 WORK-REF2996 INFO-REF2997))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSTEQR "zsteqr_")
  ((COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSTEQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2999 ':INT32) (LDZ-REF3003 ':INT32)
                              (INFO-REF3005 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2999 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3003 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3005 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3000 D)
                                            (E-REF3001 E)
                                            (Z-REF3002 Z)
                                            (WORK-REF3004 WORK))
      (%%ZSTEQR COMPZ N-REF2999 D-REF3000 E-REF3001 Z-REF3002
       LDZ-REF3003 WORK-REF3004 INFO-REF3005))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNMQR "cunmqr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNMQR
    (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3008 ':INT32) (N-REF3009 ':INT32)
                              (K-REF3010 ':INT32) (LDA-REF3012 ':INT32)
                              (LDC-REF3015 ':INT32)
                              (LWORK-REF3017 ':INT32)
                              (INFO-REF3018 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3008 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3009 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3010 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3012 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3015 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3017 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3018 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3011 A)
                                            (TAU-REF3013 TAU)
                                            (C-REF3014 C)
                                            (WORK-REF3016 WORK))
      (%%CUNMQR SIDE TRANS M-REF3008 N-REF3009 K-REF3010 A-REF3011
       LDA-REF3012 TAU-REF3013 C-REF3014 LDC-REF3015 WORK-REF3016
       LWORK-REF3017 INFO-REF3018))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPFTRS "spftrs_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPFTRS (TRANSR UPLO N NRHS A B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPFTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3021 ':INT32)
                              (NRHS-REF3022 ':INT32)
                              (LDB-REF3025 ':INT32)
                              (INFO-REF3026 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3021 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3022 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3025 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3026 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3023 A)
                                            (B-REF3024 B))
      (%%SPFTRS TRANSR UPLO N-REF3021 NRHS-REF3022 A-REF3023 B-REF3024
       LDB-REF3025 INFO-REF3026))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_PORCOND_X "zla_porcond_x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_PORCOND_X
    (UPLO N A LDA AF LDAF X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_PORCOND_X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3028 ':INT32) (LDA-REF3030 ':INT32)
                              (LDAF-REF3032 ':INT32)
                              (INFO-REF3034 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3028 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3030 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3032 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3034 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3029 A)
                                            (AF-REF3031 AF)
                                            (X-REF3033 X)
                                            (WORK-REF3035 WORK)
                                            (RWORK-REF3036 RWORK))
      (%%ZLA_PORCOND_X UPLO N-REF3028 A-REF3029 LDA-REF3030 AF-REF3031
       LDAF-REF3032 X-REF3033 INFO-REF3034 WORK-REF3035
       RWORK-REF3036))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAMSWLQ "zlamswlq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAMSWLQ
    (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAMSWLQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3039 ':INT32) (N-REF3040 ':INT32)
                              (K-REF3041 ':INT32) (MB-REF3042 ':INT32)
                              (NB-REF3043 ':INT32)
                              (LDA-REF3045 ':INT32)
                              (LDT-REF3047 ':INT32)
                              (LDC-REF3049 ':INT32)
                              (LWORK-REF3051 ':INT32)
                              (INFO-REF3052 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3039 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3040 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3041 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3042 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3043 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3045 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3047 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3049 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3051 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3052 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3044 A)
                                            (T-REF3046 T)
                                            (C-REF3048 C)
                                            (WORK-REF3050 WORK))
      (%%ZLAMSWLQ SIDE TRANS M-REF3039 N-REF3040 K-REF3041 MB-REF3042
       NB-REF3043 A-REF3044 LDA-REF3045 T-REF3046 LDT-REF3047 C-REF3048
       LDC-REF3049 WORK-REF3050 LWORK-REF3051 INFO-REF3052))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTBRFS "ctbrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTBRFS
    (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB X LDX FERR BERR WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTBRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3056 ':INT32) (KD-REF3057 ':INT32)
                              (NRHS-REF3058 ':INT32)
                              (LDAB-REF3060 ':INT32)
                              (LDB-REF3062 ':INT32)
                              (LDX-REF3064 ':INT32)
                              (INFO-REF3069 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3056 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3057 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3058 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3060 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3062 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3064 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3069 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3059 AB)
                                            (B-REF3061 B)
                                            (X-REF3063 X)
                                            (FERR-REF3065 FERR)
                                            (BERR-REF3066 BERR)
                                            (WORK-REF3067 WORK)
                                            (RWORK-REF3068 RWORK))
      (%%CTBRFS UPLO TRANS DIAG N-REF3056 KD-REF3057 NRHS-REF3058
       AB-REF3059 LDAB-REF3060 B-REF3061 LDB-REF3062 X-REF3063
       LDX-REF3064 FERR-REF3065 BERR-REF3066 WORK-REF3067 RWORK-REF3068
       INFO-REF3069))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNMHR "zunmhr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNMHR
    (SIDE TRANS M N ILO IHI A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMHR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3072 ':INT32) (N-REF3073 ':INT32)
                              (ILO-REF3074 ':INT32)
                              (IHI-REF3075 ':INT32)
                              (LDA-REF3077 ':INT32)
                              (LDC-REF3080 ':INT32)
                              (LWORK-REF3082 ':INT32)
                              (INFO-REF3083 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3072 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3073 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF3074 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF3075 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3077 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3080 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3082 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3083 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3076 A)
                                            (TAU-REF3078 TAU)
                                            (C-REF3079 C)
                                            (WORK-REF3081 WORK))
      (%%ZUNMHR SIDE TRANS M-REF3072 N-REF3073 ILO-REF3074 IHI-REF3075
       A-REF3076 LDA-REF3077 TAU-REF3078 C-REF3079 LDC-REF3080
       WORK-REF3081 LWORK-REF3082 INFO-REF3083))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTRI2X "csytri2x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI2X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3085 ':INT32) (LDA-REF3087 ':INT32)
                              (NB-REF3090 ':INT32)
                              (INFO-REF3091 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3085 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3087 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3090 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3091 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3086 A)
                                            (IPIV-REF3088 IPIV)
                                            (WORK-REF3089 WORK))
      (%%CSYTRI2X UPLO N-REF3085 A-REF3086 LDA-REF3087 IPIV-REF3088
       WORK-REF3089 NB-REF3090 INFO-REF3091))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAED1 "dlaed1_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (INDXQ :FOREIGN-ADDRESS)
   (RHO :FOREIGN-ADDRESS) (CUTPNT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAED1 (N D Q LDQ INDXQ RHO CUTPNT WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXQ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3092 ':INT32) (LDQ-REF3095 ':INT32)
                              (RHO-REF3097 ':DOUBLE)
                              (CUTPNT-REF3098 ':INT32)
                              (INFO-REF3101 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3092 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF3095 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF3097 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF3098 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3101 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3093 D)
                                            (Q-REF3094 Q)
                                            (INDXQ-REF3096 INDXQ)
                                            (WORK-REF3099 WORK)
                                            (IWORK-REF3100 IWORK))
      (%%DLAED1 N-REF3092 D-REF3093 Q-REF3094 LDQ-REF3095 INDXQ-REF3096
       RHO-REF3097 CUTPNT-REF3098 WORK-REF3099 IWORK-REF3100
       INFO-REF3101))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARRA "dlarra_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (E2 :FOREIGN-ADDRESS) (SPLTOL :FOREIGN-ADDRESS)
   (TNRM :FOREIGN-ADDRESS) (NSPLIT :FOREIGN-ADDRESS)
   (ISPLIT :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARRA (N D E E2 SPLTOL TNRM NSPLIT ISPLIT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPLTOL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TNRM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3102 ':INT32)
                              (SPLTOL-REF3106 ':DOUBLE)
                              (TNRM-REF3107 ':DOUBLE)
                              (NSPLIT-REF3108 ':INT32)
                              (INFO-REF3110 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3102 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF3106 :DOUBLE) SPLTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF TNRM-REF3107 :DOUBLE) TNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF3108 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3110 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3103 D)
                                            (E-REF3104 E)
                                            (E2-REF3105 E2)
                                            (ISPLIT-REF3109 ISPLIT))
      (%%DLARRA N-REF3102 D-REF3103 E-REF3104 E2-REF3105 SPLTOL-REF3106
       TNRM-REF3107 NSPLIT-REF3108 ISPLIT-REF3109 INFO-REF3110))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGBRFSX "zgbrfsx_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGBRFSX
    (TRANS EQUED N KL KU NRHS AB LDAB AFB LDAFB IPIV R C B LDB X LDX
     RCOND BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
     WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBRFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3113 ':INT32) (KL-REF3114 ':INT32)
                              (KU-REF3115 ':INT32)
                              (NRHS-REF3116 ':INT32)
                              (LDAB-REF3118 ':INT32)
                              (LDAFB-REF3120 ':INT32)
                              (LDB-REF3125 ':INT32)
                              (LDX-REF3127 ':INT32)
                              (RCOND-REF3128 ':DOUBLE)
                              (N_ERR_BNDS-REF3130 ':INT32)
                              (NPARAMS-REF3133 ':INT32)
                              (INFO-REF3137 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3113 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3114 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3115 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3116 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3118 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF3120 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3125 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3127 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3128 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF3130 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF3133 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3137 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3117 AB)
                                            (AFB-REF3119 AFB)
                                            (IPIV-REF3121 IPIV)
                                            (R-REF3122 R)
                                            (C-REF3123 C)
                                            (B-REF3124 B)
                                            (X-REF3126 X)
                                            (BERR-REF3129 BERR)
                                            (ERR_BNDS_NORM-REF3131
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF3132
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF3134 PARAMS)
                                            (WORK-REF3135 WORK)
                                            (RWORK-REF3136 RWORK))
      (%%ZGBRFSX TRANS EQUED N-REF3113 KL-REF3114 KU-REF3115
       NRHS-REF3116 AB-REF3117 LDAB-REF3118 AFB-REF3119 LDAFB-REF3120
       IPIV-REF3121 R-REF3122 C-REF3123 B-REF3124 LDB-REF3125 X-REF3126
       LDX-REF3127 RCOND-REF3128 BERR-REF3129 N_ERR_BNDS-REF3130
       ERR_BNDS_NORM-REF3131 ERR_BNDS_COMP-REF3132 NPARAMS-REF3133
       PARAMS-REF3134 WORK-REF3135 RWORK-REF3136 INFO-REF3137))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEQRT3 "sgeqrt3_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEQRT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRT3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3138 ':INT32) (N-REF3139 ':INT32)
                              (LDA-REF3141 ':INT32)
                              (LDT-REF3143 ':INT32)
                              (INFO-REF3144 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3138 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3139 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3141 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3143 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3144 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3140 A)
                                            (T-REF3142 T))
      (%%SGEQRT3 M-REF3138 N-REF3139 A-REF3140 LDA-REF3141 T-REF3142
       LDT-REF3143 INFO-REF3144))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPTSVX "dptsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (DF :FOREIGN-ADDRESS) (EF :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPTSVX
    (FACT N NRHS D E DF EF B LDB X LDX RCOND FERR BERR WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) EF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3146 ':INT32)
                              (NRHS-REF3147 ':INT32)
                              (LDB-REF3153 ':INT32)
                              (LDX-REF3155 ':INT32)
                              (RCOND-REF3156 ':DOUBLE)
                              (INFO-REF3160 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3146 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3147 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3153 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3155 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3156 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3160 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3148 D)
                                            (E-REF3149 E)
                                            (DF-REF3150 DF)
                                            (EF-REF3151 EF)
                                            (B-REF3152 B)
                                            (X-REF3154 X)
                                            (FERR-REF3157 FERR)
                                            (BERR-REF3158 BERR)
                                            (WORK-REF3159 WORK))
      (%%DPTSVX FACT N-REF3146 NRHS-REF3147 D-REF3148 E-REF3149
       DF-REF3150 EF-REF3151 B-REF3152 LDB-REF3153 X-REF3154
       LDX-REF3155 RCOND-REF3156 FERR-REF3157 BERR-REF3158 WORK-REF3159
       INFO-REF3160))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAGTS "slagts_")
  ((JOB :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (IN :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS) (TOL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAGTS (JOB N A B C D IN Y TOL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGTS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IN)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF3161 ':INT32) (N-REF3162 ':INT32)
                              (TOL-REF3169 ':FLOAT)
                              (INFO-REF3170 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF3161 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3162 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF3169 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3170 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3163 A)
                                            (B-REF3164 B)
                                            (C-REF3165 C)
                                            (D-REF3166 D)
                                            (IN-REF3167 IN)
                                            (Y-REF3168 Y))
      (%%SLAGTS JOB-REF3161 N-REF3162 A-REF3163 B-REF3164 C-REF3165
       D-REF3166 IN-REF3167 Y-REF3168 TOL-REF3169 INFO-REF3170))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZBBCSD "zbbcsd_")
  ((JOBU1 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU2 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV1T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV2T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (U1 :FOREIGN-ADDRESS) (LDU1 :FOREIGN-ADDRESS) (U2 :FOREIGN-ADDRESS)
   (LDU2 :FOREIGN-ADDRESS) (V1T :FOREIGN-ADDRESS)
   (LDV1T :FOREIGN-ADDRESS) (V2T :FOREIGN-ADDRESS)
   (LDV2T :FOREIGN-ADDRESS) (B11D :FOREIGN-ADDRESS)
   (B11E :FOREIGN-ADDRESS) (B12D :FOREIGN-ADDRESS)
   (B12E :FOREIGN-ADDRESS) (B21D :FOREIGN-ADDRESS)
   (B21E :FOREIGN-ADDRESS) (B22D :FOREIGN-ADDRESS)
   (B22E :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZBBCSD
    (JOBU1 JOBU2 JOBV1T JOBV2T TRANS M P Q THETA PHI U1 LDU1 U2 LDU2
     V1T LDV1T V2T LDV2T B11D B11E B12D B12E B21D B21E B22D B22E RWORK
     LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZBBCSD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    U1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V2T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B11D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B11E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B12D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B12E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B21D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B21E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B22D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B22E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3176 ':INT32) (P-REF3177 ':INT32)
                              (Q-REF3178 ':INT32)
                              (LDU1-REF3182 ':INT32)
                              (LDU2-REF3184 ':INT32)
                              (LDV1T-REF3186 ':INT32)
                              (LDV2T-REF3188 ':INT32)
                              (LRWORK-REF3198 ':INT32)
                              (INFO-REF3199 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3176 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF3177 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF3178 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF3182 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF3184 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF3186 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF3188 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF3198 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3199 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF3179 THETA)
                                            (PHI-REF3180 PHI)
                                            (U1-REF3181 U1)
                                            (U2-REF3183 U2)
                                            (V1T-REF3185 V1T)
                                            (V2T-REF3187 V2T)
                                            (B11D-REF3189 B11D)
                                            (B11E-REF3190 B11E)
                                            (B12D-REF3191 B12D)
                                            (B12E-REF3192 B12E)
                                            (B21D-REF3193 B21D)
                                            (B21E-REF3194 B21E)
                                            (B22D-REF3195 B22D)
                                            (B22E-REF3196 B22E)
                                            (RWORK-REF3197 RWORK))
      (%%ZBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF3176 P-REF3177
       Q-REF3178 THETA-REF3179 PHI-REF3180 U1-REF3181 LDU1-REF3182
       U2-REF3183 LDU2-REF3184 V1T-REF3185 LDV1T-REF3186 V2T-REF3187
       LDV2T-REF3188 B11D-REF3189 B11E-REF3190 B12D-REF3191
       B12E-REF3192 B21D-REF3193 B21E-REF3194 B22D-REF3195 B22E-REF3196
       RWORK-REF3197 LRWORK-REF3198 INFO-REF3199))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARZT "dlarzt_")
  ((DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARZT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARZT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3202 ':INT32) (K-REF3203 ':INT32)
                              (LDV-REF3205 ':INT32)
                              (LDT-REF3208 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3202 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3203 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3205 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3208 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3204 V)
                                            (TAU-REF3206 TAU)
                                            (T-REF3207 T))
      (%%DLARZT DIRECT STOREV N-REF3202 K-REF3203 V-REF3204 LDV-REF3205
       TAU-REF3206 T-REF3207 LDT-REF3208))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTREVC3 "ztrevc3_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTREVC3
    (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK LWORK RWORK
     LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTREVC3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3212 ':INT32) (LDT-REF3214 ':INT32)
                              (LDVL-REF3216 ':INT32)
                              (LDVR-REF3218 ':INT32)
                              (MM-REF3219 ':INT32) (M-REF3220 ':INT32)
                              (LWORK-REF3222 ':INT32)
                              (LRWORK-REF3224 ':INT32)
                              (INFO-REF3225 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3212 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3214 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF3216 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF3218 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF3219 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3220 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3222 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF3224 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3225 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF3211 SELECT)
                                            (T-REF3213 T)
                                            (VL-REF3215 VL)
                                            (VR-REF3217 VR)
                                            (WORK-REF3221 WORK)
                                            (RWORK-REF3223 RWORK))
      (%%ZTREVC3 SIDE HOWMNY SELECT-REF3211 N-REF3212 T-REF3213
       LDT-REF3214 VL-REF3215 LDVL-REF3216 VR-REF3217 LDVR-REF3218
       MM-REF3219 M-REF3220 WORK-REF3221 LWORK-REF3222 RWORK-REF3223
       LRWORK-REF3224 INFO-REF3225))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEQRT3 "cgeqrt3_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEQRT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQRT3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3226 ':INT32) (N-REF3227 ':INT32)
                              (LDA-REF3229 ':INT32)
                              (LDT-REF3231 ':INT32)
                              (INFO-REF3232 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3226 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3227 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3229 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3231 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3232 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3228 A)
                                            (T-REF3230 T))
      (%%CGEQRT3 M-REF3226 N-REF3227 A-REF3228 LDA-REF3229 T-REF3230
       LDT-REF3231 INFO-REF3232))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPOTF2 "zpotf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPOTF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3234 ':INT32) (LDA-REF3236 ':INT32)
                              (INFO-REF3237 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3234 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3236 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3237 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3235 A))
      (%%ZPOTF2 UPLO N-REF3234 A-REF3235 LDA-REF3236 INFO-REF3237))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHERFS "cherfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHERFS
    (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHERFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3239 ':INT32)
                              (NRHS-REF3240 ':INT32)
                              (LDA-REF3242 ':INT32)
                              (LDAF-REF3244 ':INT32)
                              (LDB-REF3247 ':INT32)
                              (LDX-REF3249 ':INT32)
                              (INFO-REF3254 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3239 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3240 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3242 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3244 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3247 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3249 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3254 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3241 A)
                                            (AF-REF3243 AF)
                                            (IPIV-REF3245 IPIV)
                                            (B-REF3246 B)
                                            (X-REF3248 X)
                                            (FERR-REF3250 FERR)
                                            (BERR-REF3251 BERR)
                                            (WORK-REF3252 WORK)
                                            (RWORK-REF3253 RWORK))
      (%%CHERFS UPLO N-REF3239 NRHS-REF3240 A-REF3241 LDA-REF3242
       AF-REF3243 LDAF-REF3244 IPIV-REF3245 B-REF3246 LDB-REF3247
       X-REF3248 LDX-REF3249 FERR-REF3250 BERR-REF3251 WORK-REF3252
       RWORK-REF3253 INFO-REF3254))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYCON_3 "zsycon_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYCON_3
    (UPLO N A LDA E IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCON_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3256 ':INT32) (LDA-REF3258 ':INT32)
                              (ANORM-REF3261 ':DOUBLE)
                              (RCOND-REF3262 ':DOUBLE)
                              (INFO-REF3264 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3256 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3258 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF3261 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3262 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3264 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3257 A)
                                            (E-REF3259 E)
                                            (IPIV-REF3260 IPIV)
                                            (WORK-REF3263 WORK))
      (%%ZSYCON_3 UPLO N-REF3256 A-REF3257 LDA-REF3258 E-REF3259
       IPIV-REF3260 ANORM-REF3261 RCOND-REF3262 WORK-REF3263
       INFO-REF3264))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHPTRI "chptri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3266 ':INT32)
                              (INFO-REF3270 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3266 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3270 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3267 AP)
                                            (IPIV-REF3268 IPIV)
                                            (WORK-REF3269 WORK))
      (%%CHPTRI UPLO N-REF3266 AP-REF3267 IPIV-REF3268 WORK-REF3269
       INFO-REF3270))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHBEVD "zhbevd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (LRWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHBEVD
    (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK LRWORK IWORK
     LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3273 ':INT32) (KD-REF3274 ':INT32)
                              (LDAB-REF3276 ':INT32)
                              (LDZ-REF3279 ':INT32)
                              (LWORK-REF3281 ':INT32)
                              (LRWORK-REF3283 ':INT32)
                              (LIWORK-REF3285 ':INT32)
                              (INFO-REF3286 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3273 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3274 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3276 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3279 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3281 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF3283 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF3285 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3286 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3275 AB)
                                            (W-REF3277 W)
                                            (Z-REF3278 Z)
                                            (WORK-REF3280 WORK)
                                            (RWORK-REF3282 RWORK)
                                            (IWORK-REF3284 IWORK))
      (%%ZHBEVD JOBZ UPLO N-REF3273 KD-REF3274 AB-REF3275 LDAB-REF3276
       W-REF3277 Z-REF3278 LDZ-REF3279 WORK-REF3280 LWORK-REF3281
       RWORK-REF3282 LRWORK-REF3283 IWORK-REF3284 LIWORK-REF3285
       INFO-REF3286))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGTSVX "cgtsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS) (DLF :FOREIGN-ADDRESS)
   (DF :FOREIGN-ADDRESS) (DUF :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGTSVX
    (FACT TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX RCOND
     FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DLF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DUF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3289 ':INT32)
                              (NRHS-REF3290 ':INT32)
                              (LDB-REF3300 ':INT32)
                              (LDX-REF3302 ':INT32)
                              (RCOND-REF3303 ':FLOAT)
                              (INFO-REF3308 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3289 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3290 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3300 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3302 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3303 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3308 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF3291 DL)
                                            (D-REF3292 D)
                                            (DU-REF3293 DU)
                                            (DLF-REF3294 DLF)
                                            (DF-REF3295 DF)
                                            (DUF-REF3296 DUF)
                                            (DU2-REF3297 DU2)
                                            (IPIV-REF3298 IPIV)
                                            (B-REF3299 B)
                                            (X-REF3301 X)
                                            (FERR-REF3304 FERR)
                                            (BERR-REF3305 BERR)
                                            (WORK-REF3306 WORK)
                                            (RWORK-REF3307 RWORK))
      (%%CGTSVX FACT TRANS N-REF3289 NRHS-REF3290 DL-REF3291 D-REF3292
       DU-REF3293 DLF-REF3294 DF-REF3295 DUF-REF3296 DU2-REF3297
       IPIV-REF3298 B-REF3299 LDB-REF3300 X-REF3301 LDX-REF3302
       RCOND-REF3303 FERR-REF3304 BERR-REF3305 WORK-REF3306
       RWORK-REF3307 INFO-REF3308))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETF2_ROOK "chetf2_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETF2_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3310 ':INT32) (LDA-REF3312 ':INT32)
                              (INFO-REF3314 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3310 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3312 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3314 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3311 A)
                                            (IPIV-REF3313 IPIV))
      (%%CHETF2_ROOK UPLO N-REF3310 A-REF3311 LDA-REF3312 IPIV-REF3313
       INFO-REF3314))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAIC1 "slaic1_")
  ((JOB :FOREIGN-ADDRESS) (J :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (SEST :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (GAMMA :FOREIGN-ADDRESS) (SESTPR :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAIC1 (JOB J X SEST W GAMMA SESTPR S C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAIC1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SEST)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT GAMMA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SESTPR)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF3315 ':INT32) (J-REF3316 ':INT32)
                              (SEST-REF3318 ':FLOAT)
                              (GAMMA-REF3320 ':FLOAT)
                              (SESTPR-REF3321 ':FLOAT)
                              (S-REF3322 ':FLOAT) (C-REF3323 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF3315 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF J-REF3316 :INT32) J)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF3318 :FLOAT) SEST)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAMMA-REF3320 :FLOAT) GAMMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF3321 :FLOAT) SESTPR)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF3322 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF3323 :FLOAT) C)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3317 X)
                                            (W-REF3319 W))
      (%%SLAIC1 JOB-REF3315 J-REF3316 X-REF3317 SEST-REF3318 W-REF3319
       GAMMA-REF3320 SESTPR-REF3321 S-REF3322 C-REF3323))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASDA "dlasda_")
  ((ICOMPQ :FOREIGN-ADDRESS) (SMLSIZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (DIFL :FOREIGN-ADDRESS)
   (DIFR :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (POLES :FOREIGN-ADDRESS) (GIVPTR :FOREIGN-ADDRESS)
   (GIVCOL :FOREIGN-ADDRESS) (LDGCOL :FOREIGN-ADDRESS)
   (PERM :FOREIGN-ADDRESS) (GIVNUM :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASDA
    (ICOMPQ SMLSIZ N SQRE D E U LDU VT K DIFL DIFR Z POLES GIVPTR
     GIVCOL LDGCOL PERM GIVNUM C S WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIFL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIFR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) POLES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF3324 ':INT32)
                              (SMLSIZ-REF3325 ':INT32)
                              (N-REF3326 ':INT32)
                              (SQRE-REF3327 ':INT32)
                              (LDU-REF3331 ':INT32)
                              (LDGCOL-REF3340 ':INT32)
                              (INFO-REF3347 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF3324 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF3325 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3326 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF3327 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF3331 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF3340 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3347 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3328 D)
                                            (E-REF3329 E)
                                            (U-REF3330 U)
                                            (VT-REF3332 VT)
                                            (K-REF3333 K)
                                            (DIFL-REF3334 DIFL)
                                            (DIFR-REF3335 DIFR)
                                            (Z-REF3336 Z)
                                            (POLES-REF3337 POLES)
                                            (GIVPTR-REF3338 GIVPTR)
                                            (GIVCOL-REF3339 GIVCOL)
                                            (PERM-REF3341 PERM)
                                            (GIVNUM-REF3342 GIVNUM)
                                            (C-REF3343 C)
                                            (S-REF3344 S)
                                            (WORK-REF3345 WORK)
                                            (IWORK-REF3346 IWORK))
      (%%DLASDA ICOMPQ-REF3324 SMLSIZ-REF3325 N-REF3326 SQRE-REF3327
       D-REF3328 E-REF3329 U-REF3330 LDU-REF3331 VT-REF3332 K-REF3333
       DIFL-REF3334 DIFR-REF3335 Z-REF3336 POLES-REF3337 GIVPTR-REF3338
       GIVCOL-REF3339 LDGCOL-REF3340 PERM-REF3341 GIVNUM-REF3342
       C-REF3343 S-REF3344 WORK-REF3345 IWORK-REF3346 INFO-REF3347))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETRF_RK "zhetrf_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRF_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3349 ':INT32) (LDA-REF3351 ':INT32)
                              (LWORK-REF3355 ':INT32)
                              (INFO-REF3356 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3349 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3351 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3355 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3356 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3350 A)
                                            (E-REF3352 E)
                                            (IPIV-REF3353 IPIV)
                                            (WORK-REF3354 WORK))
      (%%ZHETRF_RK UPLO N-REF3349 A-REF3350 LDA-REF3351 E-REF3352
       IPIV-REF3353 WORK-REF3354 LWORK-REF3355 INFO-REF3356))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPBSV "zpbsv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPBSV (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3358 ':INT32) (KD-REF3359 ':INT32)
                              (NRHS-REF3360 ':INT32)
                              (LDAB-REF3362 ':INT32)
                              (LDB-REF3364 ':INT32)
                              (INFO-REF3365 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3358 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3359 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3360 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3362 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3364 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3365 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3361 AB)
                                            (B-REF3363 B))
      (%%ZPBSV UPLO N-REF3358 KD-REF3359 NRHS-REF3360 AB-REF3361
       LDAB-REF3362 B-REF3363 LDB-REF3364 INFO-REF3365))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGBSVX "zgbsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGBSVX
    (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B LDB X
     LDX RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3368 ':INT32) (KL-REF3369 ':INT32)
                              (KU-REF3370 ':INT32)
                              (NRHS-REF3371 ':INT32)
                              (LDAB-REF3373 ':INT32)
                              (LDAFB-REF3375 ':INT32)
                              (LDB-REF3381 ':INT32)
                              (LDX-REF3383 ':INT32)
                              (RCOND-REF3384 ':DOUBLE)
                              (INFO-REF3389 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3368 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3369 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3370 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3371 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3373 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF3375 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3381 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3383 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3384 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3389 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3372 AB)
                                            (AFB-REF3374 AFB)
                                            (IPIV-REF3376 IPIV)
                                            (R-REF3378 R)
                                            (C-REF3379 C)
                                            (B-REF3380 B)
                                            (X-REF3382 X)
                                            (FERR-REF3385 FERR)
                                            (BERR-REF3386 BERR)
                                            (WORK-REF3387 WORK)
                                            (RWORK-REF3388 RWORK))
      (%%ZGBSVX FACT TRANS N-REF3368 KL-REF3369 KU-REF3370 NRHS-REF3371
       AB-REF3372 LDAB-REF3373 AFB-REF3374 LDAFB-REF3375 IPIV-REF3376
       EQUED R-REF3378 C-REF3379 B-REF3380 LDB-REF3381 X-REF3382
       LDX-REF3383 RCOND-REF3384 FERR-REF3385 BERR-REF3386 WORK-REF3387
       RWORK-REF3388 INFO-REF3389))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHEEVX "cheevx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHEEVX
    (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK LWORK
     RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3393 ':INT32) (LDA-REF3395 ':INT32)
                              (VL-REF3396 ':FLOAT) (VU-REF3397 ':FLOAT)
                              (IL-REF3398 ':INT32) (IU-REF3399 ':INT32)
                              (ABSTOL-REF3400 ':FLOAT)
                              (M-REF3401 ':INT32) (LDZ-REF3404 ':INT32)
                              (LWORK-REF3406 ':INT32)
                              (INFO-REF3410 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3393 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3395 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF3396 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF3397 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF3398 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF3399 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF3400 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3401 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3404 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3406 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3410 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3394 A)
                                            (W-REF3402 W)
                                            (Z-REF3403 Z)
                                            (WORK-REF3405 WORK)
                                            (RWORK-REF3407 RWORK)
                                            (IWORK-REF3408 IWORK)
                                            (IFAIL-REF3409 IFAIL))
      (%%CHEEVX JOBZ RANGE UPLO N-REF3393 A-REF3394 LDA-REF3395
       VL-REF3396 VU-REF3397 IL-REF3398 IU-REF3399 ABSTOL-REF3400
       M-REF3401 W-REF3402 Z-REF3403 LDZ-REF3404 WORK-REF3405
       LWORK-REF3406 RWORK-REF3407 IWORK-REF3408 IFAIL-REF3409
       INFO-REF3410))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_PORCOND_C "cla_porcond_c_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (CAPPLY :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_PORCOND_C
    (UPLO N A LDA AF LDAF C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_PORCOND_C)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3412 ':INT32) (LDA-REF3414 ':INT32)
                              (LDAF-REF3416 ':INT32)
                              (CAPPLY-REF3418 ':INT32)
                              (INFO-REF3419 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3412 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3414 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3416 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF3418 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3419 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3413 A)
                                            (AF-REF3415 AF)
                                            (C-REF3417 C)
                                            (WORK-REF3420 WORK)
                                            (RWORK-REF3421 RWORK))
      (%%CLA_PORCOND_C UPLO N-REF3412 A-REF3413 LDA-REF3414 AF-REF3415
       LDAF-REF3416 C-REF3417 CAPPLY-REF3418 INFO-REF3419 WORK-REF3420
       RWORK-REF3421))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGBTRF "cgbtrf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGBTRF (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBTRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3422 ':INT32) (N-REF3423 ':INT32)
                              (KL-REF3424 ':INT32) (KU-REF3425 ':INT32)
                              (LDAB-REF3427 ':INT32)
                              (INFO-REF3429 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3422 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3423 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3424 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3425 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3427 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3429 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3426 AB)
                                            (IPIV-REF3428 IPIV))
      (%%CGBTRF M-REF3422 N-REF3423 KL-REF3424 KU-REF3425 AB-REF3426
       LDAB-REF3427 IPIV-REF3428 INFO-REF3429))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPBCON "spbcon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPBCON
    (UPLO N KD AB LDAB ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3431 ':INT32) (KD-REF3432 ':INT32)
                              (LDAB-REF3434 ':INT32)
                              (ANORM-REF3435 ':FLOAT)
                              (RCOND-REF3436 ':FLOAT)
                              (INFO-REF3439 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3431 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3432 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3434 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF3435 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3436 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3439 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3433 AB)
                                            (WORK-REF3437 WORK)
                                            (IWORK-REF3438 IWORK))
      (%%SPBCON UPLO N-REF3431 KD-REF3432 AB-REF3433 LDAB-REF3434
       ANORM-REF3435 RCOND-REF3436 WORK-REF3437 IWORK-REF3438
       INFO-REF3439))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRS2 "chetrs2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3441 ':INT32)
                              (NRHS-REF3442 ':INT32)
                              (LDA-REF3444 ':INT32)
                              (LDB-REF3447 ':INT32)
                              (INFO-REF3449 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3441 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3442 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3444 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3447 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3449 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3443 A)
                                            (IPIV-REF3445 IPIV)
                                            (B-REF3446 B)
                                            (WORK-REF3448 WORK))
      (%%CHETRS2 UPLO N-REF3441 NRHS-REF3442 A-REF3443 LDA-REF3444
       IPIV-REF3445 B-REF3446 LDB-REF3447 WORK-REF3448 INFO-REF3449))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYGV "ssygv_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYGV
    (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF3450 ':INT32)
                              (N-REF3453 ':INT32) (LDA-REF3455 ':INT32)
                              (LDB-REF3457 ':INT32)
                              (LWORK-REF3460 ':INT32)
                              (INFO-REF3461 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF3450 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3453 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3455 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3457 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3460 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3461 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3454 A)
                                            (B-REF3456 B)
                                            (W-REF3458 W)
                                            (WORK-REF3459 WORK))
      (%%SSYGV ITYPE-REF3450 JOBZ UPLO N-REF3453 A-REF3454 LDA-REF3455
       B-REF3456 LDB-REF3457 W-REF3458 WORK-REF3459 LWORK-REF3460
       INFO-REF3461))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPOTRS "cpotrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPOTRS (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3463 ':INT32)
                              (NRHS-REF3464 ':INT32)
                              (LDA-REF3466 ':INT32)
                              (LDB-REF3468 ':INT32)
                              (INFO-REF3469 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3463 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3464 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3466 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3468 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3469 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3465 A)
                                            (B-REF3467 B))
      (%%CPOTRS UPLO N-REF3463 NRHS-REF3464 A-REF3465 LDA-REF3466
       B-REF3467 LDB-REF3468 INFO-REF3469))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSBTRD "ssbtrd_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSBTRD (VECT UPLO N KD AB LDAB D E Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBTRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3472 ':INT32) (KD-REF3473 ':INT32)
                              (LDAB-REF3475 ':INT32)
                              (LDQ-REF3479 ':INT32)
                              (INFO-REF3481 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3472 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3473 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3475 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF3479 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3481 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3474 AB)
                                            (D-REF3476 D)
                                            (E-REF3477 E)
                                            (Q-REF3478 Q)
                                            (WORK-REF3480 WORK))
      (%%SSBTRD VECT UPLO N-REF3472 KD-REF3473 AB-REF3474 LDAB-REF3475
       D-REF3476 E-REF3477 Q-REF3478 LDQ-REF3479 WORK-REF3480
       INFO-REF3481))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLASYF_ROOK "zlasyf_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLASYF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASYF_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3483 ':INT32) (NB-REF3484 ':INT32)
                              (KB-REF3485 ':INT32)
                              (LDA-REF3487 ':INT32)
                              (LDW-REF3490 ':INT32)
                              (INFO-REF3491 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3483 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3484 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3485 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3487 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3490 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3491 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3486 A)
                                            (IPIV-REF3488 IPIV)
                                            (W-REF3489 W))
      (%%ZLASYF_ROOK UPLO N-REF3483 NB-REF3484 KB-REF3485 A-REF3486
       LDA-REF3487 IPIV-REF3488 W-REF3489 LDW-REF3490 INFO-REF3491))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRS_AA "dsytrs_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRS_AA
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3493 ':INT32)
                              (NRHS-REF3494 ':INT32)
                              (LDA-REF3496 ':INT32)
                              (LDB-REF3499 ':INT32)
                              (LWORK-REF3501 ':INT32)
                              (INFO-REF3502 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3493 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3494 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3496 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3499 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3501 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3502 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3495 A)
                                            (IPIV-REF3497 IPIV)
                                            (B-REF3498 B)
                                            (WORK-REF3500 WORK))
      (%%DSYTRS_AA UPLO N-REF3493 NRHS-REF3494 A-REF3495 LDA-REF3496
       IPIV-REF3497 B-REF3498 LDB-REF3499 WORK-REF3500 LWORK-REF3501
       INFO-REF3502))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRS "dsytrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3504 ':INT32)
                              (NRHS-REF3505 ':INT32)
                              (LDA-REF3507 ':INT32)
                              (LDB-REF3510 ':INT32)
                              (INFO-REF3511 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3504 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3505 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3507 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3510 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3511 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3506 A)
                                            (IPIV-REF3508 IPIV)
                                            (B-REF3509 B))
      (%%DSYTRS UPLO N-REF3504 NRHS-REF3505 A-REF3506 LDA-REF3507
       IPIV-REF3508 B-REF3509 LDB-REF3510 INFO-REF3511))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGGRQF "cggrqf_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAUA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (TAUB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGGRQF
    (M P N A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGRQF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3512 ':INT32) (P-REF3513 ':INT32)
                              (N-REF3514 ':INT32) (LDA-REF3516 ':INT32)
                              (LDB-REF3519 ':INT32)
                              (LWORK-REF3522 ':INT32)
                              (INFO-REF3523 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3512 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF3513 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3514 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3516 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3519 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3522 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3523 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3515 A)
                                            (TAUA-REF3517 TAUA)
                                            (B-REF3518 B)
                                            (TAUB-REF3520 TAUB)
                                            (WORK-REF3521 WORK))
      (%%CGGRQF M-REF3512 P-REF3513 N-REF3514 A-REF3515 LDA-REF3516
       TAUA-REF3517 B-REF3518 LDB-REF3519 TAUB-REF3520 WORK-REF3521
       LWORK-REF3522 INFO-REF3523))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLALS0 "dlals0_")
  ((ICOMPQ :FOREIGN-ADDRESS) (NL :FOREIGN-ADDRESS)
   (NR :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (BX :FOREIGN-ADDRESS) (LDBX :FOREIGN-ADDRESS)
   (PERM :FOREIGN-ADDRESS) (GIVPTR :FOREIGN-ADDRESS)
   (GIVCOL :FOREIGN-ADDRESS) (LDGCOL :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (LDGNUM :FOREIGN-ADDRESS)
   (POLES :FOREIGN-ADDRESS) (DIFL :FOREIGN-ADDRESS)
   (DIFR :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLALS0
    (ICOMPQ NL NR SQRE NRHS B LDB BX LDBX PERM GIVPTR GIVCOL LDGCOL
     GIVNUM LDGNUM POLES DIFL DIFR Z K C S WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALS0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) POLES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIFL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIFR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF3524 ':INT32)
                              (NL-REF3525 ':INT32) (NR-REF3526 ':INT32)
                              (SQRE-REF3527 ':INT32)
                              (NRHS-REF3528 ':INT32)
                              (LDB-REF3530 ':INT32)
                              (LDBX-REF3532 ':INT32)
                              (GIVPTR-REF3534 ':INT32)
                              (LDGCOL-REF3536 ':INT32)
                              (LDGNUM-REF3538 ':INT32)
                              (K-REF3543 ':INT32) (C-REF3544 ':DOUBLE)
                              (S-REF3545 ':DOUBLE)
                              (INFO-REF3547 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF3524 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF3525 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF3526 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF3527 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3528 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3530 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF3532 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF3534 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF3536 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF3538 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3543 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF3544 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF3545 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3547 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF3529 B)
                                            (BX-REF3531 BX)
                                            (PERM-REF3533 PERM)
                                            (GIVCOL-REF3535 GIVCOL)
                                            (GIVNUM-REF3537 GIVNUM)
                                            (POLES-REF3539 POLES)
                                            (DIFL-REF3540 DIFL)
                                            (DIFR-REF3541 DIFR)
                                            (Z-REF3542 Z)
                                            (WORK-REF3546 WORK))
      (%%DLALS0 ICOMPQ-REF3524 NL-REF3525 NR-REF3526 SQRE-REF3527
       NRHS-REF3528 B-REF3529 LDB-REF3530 BX-REF3531 LDBX-REF3532
       PERM-REF3533 GIVPTR-REF3534 GIVCOL-REF3535 LDGCOL-REF3536
       GIVNUM-REF3537 LDGNUM-REF3538 POLES-REF3539 DIFL-REF3540
       DIFR-REF3541 Z-REF3542 K-REF3543 C-REF3544 S-REF3545
       WORK-REF3546 INFO-REF3547))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASD7 "slasd7_")
  ((ICOMPQ :FOREIGN-ADDRESS) (NL :FOREIGN-ADDRESS)
   (NR :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (ZW :FOREIGN-ADDRESS)
   (VF :FOREIGN-ADDRESS) (VFW :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VLW :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (DSIGMA :FOREIGN-ADDRESS)
   (IDX :FOREIGN-ADDRESS) (IDXP :FOREIGN-ADDRESS)
   (IDXQ :FOREIGN-ADDRESS) (PERM :FOREIGN-ADDRESS)
   (GIVPTR :FOREIGN-ADDRESS) (GIVCOL :FOREIGN-ADDRESS)
   (LDGCOL :FOREIGN-ADDRESS) (GIVNUM :FOREIGN-ADDRESS)
   (LDGNUM :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASD7
    (ICOMPQ NL NR SQRE K D Z ZW VF VFW VL VLW ALPHA BETA DSIGMA IDX
     IDXP IDXQ PERM GIVPTR GIVCOL LDGCOL GIVNUM LDGNUM C S INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD7)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ZW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VFW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VLW)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DSIGMA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF3548 ':INT32)
                              (NL-REF3549 ':INT32) (NR-REF3550 ':INT32)
                              (SQRE-REF3551 ':INT32)
                              (K-REF3552 ':INT32)
                              (ALPHA-REF3560 ':FLOAT)
                              (BETA-REF3561 ':FLOAT)
                              (GIVPTR-REF3567 ':INT32)
                              (LDGCOL-REF3569 ':INT32)
                              (LDGNUM-REF3571 ':INT32)
                              (C-REF3572 ':FLOAT) (S-REF3573 ':FLOAT)
                              (INFO-REF3574 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF3548 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF3549 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF3550 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF3551 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3552 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF3560 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF3561 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF3567 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF3569 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF3571 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF3572 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF3573 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3574 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3553 D)
                                            (Z-REF3554 Z)
                                            (ZW-REF3555 ZW)
                                            (VF-REF3556 VF)
                                            (VFW-REF3557 VFW)
                                            (VL-REF3558 VL)
                                            (VLW-REF3559 VLW)
                                            (DSIGMA-REF3562 DSIGMA)
                                            (IDX-REF3563 IDX)
                                            (IDXP-REF3564 IDXP)
                                            (IDXQ-REF3565 IDXQ)
                                            (PERM-REF3566 PERM)
                                            (GIVCOL-REF3568 GIVCOL)
                                            (GIVNUM-REF3570 GIVNUM))
      (%%SLASD7 ICOMPQ-REF3548 NL-REF3549 NR-REF3550 SQRE-REF3551
       K-REF3552 D-REF3553 Z-REF3554 ZW-REF3555 VF-REF3556 VFW-REF3557
       VL-REF3558 VLW-REF3559 ALPHA-REF3560 BETA-REF3561 DSIGMA-REF3562
       IDX-REF3563 IDXP-REF3564 IDXQ-REF3565 PERM-REF3566
       GIVPTR-REF3567 GIVCOL-REF3568 LDGCOL-REF3569 GIVNUM-REF3570
       LDGNUM-REF3571 C-REF3572 S-REF3573 INFO-REF3574))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTRSYL "dtrsyl_")
  ((TRANA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (ISGN :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTRSYL
    (TRANA TRANB ISGN M N A LDA B LDB C LDC SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRSYL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF3577 ':INT32)
                              (M-REF3578 ':INT32) (N-REF3579 ':INT32)
                              (LDA-REF3581 ':INT32)
                              (LDB-REF3583 ':INT32)
                              (LDC-REF3585 ':INT32)
                              (SCALE-REF3586 ':DOUBLE)
                              (INFO-REF3587 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF3577 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3578 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3579 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3581 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3583 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3585 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3586 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3587 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3580 A)
                                            (B-REF3582 B)
                                            (C-REF3584 C))
      (%%DTRSYL TRANA TRANB ISGN-REF3577 M-REF3578 N-REF3579 A-REF3580
       LDA-REF3581 B-REF3582 LDB-REF3583 C-REF3584 LDC-REF3585
       SCALE-REF3586 INFO-REF3587))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYGVX "ssygvx_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYGVX
    (ITYPE JOBZ RANGE UPLO N A LDA B LDB VL VU IL IU ABSTOL M W Z LDZ
     WORK LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYGVX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF3588 ':INT32)
                              (N-REF3592 ':INT32) (LDA-REF3594 ':INT32)
                              (LDB-REF3596 ':INT32)
                              (VL-REF3597 ':FLOAT) (VU-REF3598 ':FLOAT)
                              (IL-REF3599 ':INT32) (IU-REF3600 ':INT32)
                              (ABSTOL-REF3601 ':FLOAT)
                              (M-REF3602 ':INT32) (LDZ-REF3605 ':INT32)
                              (LWORK-REF3607 ':INT32)
                              (INFO-REF3610 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF3588 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3592 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3594 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3596 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF3597 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF3598 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF3599 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF3600 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF3601 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3602 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3605 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3607 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3610 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3593 A)
                                            (B-REF3595 B)
                                            (W-REF3603 W)
                                            (Z-REF3604 Z)
                                            (WORK-REF3606 WORK)
                                            (IWORK-REF3608 IWORK)
                                            (IFAIL-REF3609 IFAIL))
      (%%SSYGVX ITYPE-REF3588 JOBZ RANGE UPLO N-REF3592 A-REF3593
       LDA-REF3594 B-REF3595 LDB-REF3596 VL-REF3597 VU-REF3598
       IL-REF3599 IU-REF3600 ABSTOL-REF3601 M-REF3602 W-REF3603
       Z-REF3604 LDZ-REF3605 WORK-REF3606 LWORK-REF3607 IWORK-REF3608
       IFAIL-REF3609 INFO-REF3610))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSPR "cspr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSPR (UPLO N ALPHA X INCX AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3612 ':INT32)
                              (ALPHA-REF3613
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF3615 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3612 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF3613
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3615 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3614 X)
                                            (AP-REF3616 AP))
      (%%CSPR UPLO N-REF3612 ALPHA-REF3613 X-REF3614 INCX-REF3615
       AP-REF3616))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHPTRF "chptrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3618 ':INT32)
                              (INFO-REF3621 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3618 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3621 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3619 AP)
                                            (IPIV-REF3620 IPIV))
      (%%CHPTRF UPLO N-REF3618 AP-REF3619 IPIV-REF3620 INFO-REF3621))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGERQ2 "dgerq2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGERQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERQ2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3622 ':INT32) (N-REF3623 ':INT32)
                              (LDA-REF3625 ':INT32)
                              (INFO-REF3628 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3622 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3623 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3625 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3628 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3624 A)
                                            (TAU-REF3626 TAU)
                                            (WORK-REF3627 WORK))
      (%%DGERQ2 M-REF3622 N-REF3623 A-REF3624 LDA-REF3625 TAU-REF3626
       WORK-REF3627 INFO-REF3628))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEMQR "cgemqr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (TSIZE :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEMQR
    (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3631 ':INT32) (N-REF3632 ':INT32)
                              (K-REF3633 ':INT32) (LDA-REF3635 ':INT32)
                              (TSIZE-REF3637 ':INT32)
                              (LDC-REF3639 ':INT32)
                              (LWORK-REF3641 ':INT32)
                              (INFO-REF3642 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3631 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3632 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3633 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3635 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF3637 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3639 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3641 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3642 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3634 A)
                                            (T-REF3636 T)
                                            (C-REF3638 C)
                                            (WORK-REF3640 WORK))
      (%%CGEMQR SIDE TRANS M-REF3631 N-REF3632 K-REF3633 A-REF3634
       LDA-REF3635 T-REF3636 TSIZE-REF3637 C-REF3638 LDC-REF3639
       WORK-REF3640 LWORK-REF3641 INFO-REF3642))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSPSVX "zspsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSPSVX
    (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR WORK
     RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3645 ':INT32)
                              (NRHS-REF3646 ':INT32)
                              (LDB-REF3651 ':INT32)
                              (LDX-REF3653 ':INT32)
                              (RCOND-REF3654 ':DOUBLE)
                              (INFO-REF3659 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3645 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3646 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3651 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3653 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3654 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3659 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3647 AP)
                                            (AFP-REF3648 AFP)
                                            (IPIV-REF3649 IPIV)
                                            (B-REF3650 B)
                                            (X-REF3652 X)
                                            (FERR-REF3655 FERR)
                                            (BERR-REF3656 BERR)
                                            (WORK-REF3657 WORK)
                                            (RWORK-REF3658 RWORK))
      (%%ZSPSVX FACT UPLO N-REF3645 NRHS-REF3646 AP-REF3647 AFP-REF3648
       IPIV-REF3649 B-REF3650 LDB-REF3651 X-REF3652 LDX-REF3653
       RCOND-REF3654 FERR-REF3655 BERR-REF3656 WORK-REF3657
       RWORK-REF3658 INFO-REF3659))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSTEBZ "sstebz_")
  ((RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (ORDER (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (NSPLIT :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (IBLOCK :FOREIGN-ADDRESS) (ISPLIT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSTEBZ
    (RANGE ORDER N VL VU IL IU ABSTOL D E M NSPLIT W IBLOCK ISPLIT WORK
     IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING ORDER)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IBLOCK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3662 ':INT32) (VL-REF3663 ':FLOAT)
                              (VU-REF3664 ':FLOAT) (IL-REF3665 ':INT32)
                              (IU-REF3666 ':INT32)
                              (ABSTOL-REF3667 ':FLOAT)
                              (M-REF3670 ':INT32)
                              (NSPLIT-REF3671 ':INT32)
                              (INFO-REF3677 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3662 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF3663 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF3664 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF3665 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF3666 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF3667 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3670 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF3671 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3677 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3668 D)
                                            (E-REF3669 E)
                                            (W-REF3672 W)
                                            (IBLOCK-REF3673 IBLOCK)
                                            (ISPLIT-REF3674 ISPLIT)
                                            (WORK-REF3675 WORK)
                                            (IWORK-REF3676 IWORK))
      (%%SSTEBZ RANGE ORDER N-REF3662 VL-REF3663 VU-REF3664 IL-REF3665
       IU-REF3666 ABSTOL-REF3667 D-REF3668 E-REF3669 M-REF3670
       NSPLIT-REF3671 W-REF3672 IBLOCK-REF3673 ISPLIT-REF3674
       WORK-REF3675 IWORK-REF3676 INFO-REF3677))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORCSD2BY1 "sorcsd2by1_")
  ((JOBU1 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU2 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV1T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (U1 :FOREIGN-ADDRESS)
   (LDU1 :FOREIGN-ADDRESS) (U2 :FOREIGN-ADDRESS)
   (LDU2 :FOREIGN-ADDRESS) (V1T :FOREIGN-ADDRESS)
   (LDV1T :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORCSD2BY1
    (JOBU1 JOBU2 JOBV1T M P Q X11 LDX11 X21 LDX21 THETA U1 LDU1 U2 LDU2
     V1T LDV1T WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORCSD2BY1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3681 ':INT32) (P-REF3682 ':INT32)
                              (Q-REF3683 ':INT32)
                              (LDX11-REF3685 ':INT32)
                              (LDX21-REF3687 ':INT32)
                              (LDU1-REF3690 ':INT32)
                              (LDU2-REF3692 ':INT32)
                              (LDV1T-REF3694 ':INT32)
                              (LWORK-REF3696 ':INT32)
                              (INFO-REF3698 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3681 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF3682 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF3683 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF3685 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF3687 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF3690 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF3692 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF3694 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3696 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3698 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF3684 X11)
                                            (X21-REF3686 X21)
                                            (THETA-REF3688 THETA)
                                            (U1-REF3689 U1)
                                            (U2-REF3691 U2)
                                            (V1T-REF3693 V1T)
                                            (WORK-REF3695 WORK)
                                            (IWORK-REF3697 IWORK))
      (%%SORCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF3681 P-REF3682 Q-REF3683
       X11-REF3684 LDX11-REF3685 X21-REF3686 LDX21-REF3687
       THETA-REF3688 U1-REF3689 LDU1-REF3690 U2-REF3691 LDU2-REF3692
       V1T-REF3693 LDV1T-REF3694 WORK-REF3695 LWORK-REF3696
       IWORK-REF3697 INFO-REF3698))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSBGVX "ssbgvx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSBGVX
    (JOBZ RANGE UPLO N KA KB AB LDAB BB LDBB Q LDQ VL VU IL IU ABSTOL M
     W Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBGVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3702 ':INT32) (KA-REF3703 ':INT32)
                              (KB-REF3704 ':INT32)
                              (LDAB-REF3706 ':INT32)
                              (LDBB-REF3708 ':INT32)
                              (LDQ-REF3710 ':INT32)
                              (VL-REF3711 ':FLOAT) (VU-REF3712 ':FLOAT)
                              (IL-REF3713 ':INT32) (IU-REF3714 ':INT32)
                              (ABSTOL-REF3715 ':FLOAT)
                              (M-REF3716 ':INT32) (LDZ-REF3719 ':INT32)
                              (INFO-REF3723 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3702 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF3703 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3704 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3706 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF3708 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF3710 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF3711 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF3712 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF3713 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF3714 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF3715 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3716 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3719 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3723 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3705 AB)
                                            (BB-REF3707 BB)
                                            (Q-REF3709 Q)
                                            (W-REF3717 W)
                                            (Z-REF3718 Z)
                                            (WORK-REF3720 WORK)
                                            (IWORK-REF3721 IWORK)
                                            (IFAIL-REF3722 IFAIL))
      (%%SSBGVX JOBZ RANGE UPLO N-REF3702 KA-REF3703 KB-REF3704
       AB-REF3705 LDAB-REF3706 BB-REF3707 LDBB-REF3708 Q-REF3709
       LDQ-REF3710 VL-REF3711 VU-REF3712 IL-REF3713 IU-REF3714
       ABSTOL-REF3715 M-REF3716 W-REF3717 Z-REF3718 LDZ-REF3719
       WORK-REF3720 IWORK-REF3721 IFAIL-REF3722 INFO-REF3723))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARFX "slarfx_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARFX (SIDE M N V TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3725 ':INT32) (N-REF3726 ':INT32)
                              (TAU-REF3728 ':FLOAT)
                              (LDC-REF3730 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3725 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3726 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF3728 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3730 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3727 V)
                                            (C-REF3729 C)
                                            (WORK-REF3731 WORK))
      (%%SLARFX SIDE M-REF3725 N-REF3726 V-REF3727 TAU-REF3728
       C-REF3729 LDC-REF3730 WORK-REF3731))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYRFS "zsyrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYRFS
    (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3733 ':INT32)
                              (NRHS-REF3734 ':INT32)
                              (LDA-REF3736 ':INT32)
                              (LDAF-REF3738 ':INT32)
                              (LDB-REF3741 ':INT32)
                              (LDX-REF3743 ':INT32)
                              (INFO-REF3748 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3733 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3734 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3736 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3738 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3741 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3743 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3748 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3735 A)
                                            (AF-REF3737 AF)
                                            (IPIV-REF3739 IPIV)
                                            (B-REF3740 B)
                                            (X-REF3742 X)
                                            (FERR-REF3744 FERR)
                                            (BERR-REF3745 BERR)
                                            (WORK-REF3746 WORK)
                                            (RWORK-REF3747 RWORK))
      (%%ZSYRFS UPLO N-REF3733 NRHS-REF3734 A-REF3735 LDA-REF3736
       AF-REF3737 LDAF-REF3738 IPIV-REF3739 B-REF3740 LDB-REF3741
       X-REF3742 LDX-REF3743 FERR-REF3744 BERR-REF3745 WORK-REF3746
       RWORK-REF3747 INFO-REF3748))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANGE "clange_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANGE (NORM M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3750 ':INT32) (N-REF3751 ':INT32)
                              (LDA-REF3753 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3750 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3751 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3753 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3752 A)
                                            (WORK-REF3754 WORK))
      (%%CLANGE NORM M-REF3750 N-REF3751 A-REF3752 LDA-REF3753
       WORK-REF3754))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRS_ROOK "ssytrs_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3756 ':INT32)
                              (NRHS-REF3757 ':INT32)
                              (LDA-REF3759 ':INT32)
                              (LDB-REF3762 ':INT32)
                              (INFO-REF3763 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3756 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3757 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3759 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3762 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3763 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3758 A)
                                            (IPIV-REF3760 IPIV)
                                            (B-REF3761 B))
      (%%SSYTRS_ROOK UPLO N-REF3756 NRHS-REF3757 A-REF3758 LDA-REF3759
       IPIV-REF3760 B-REF3761 LDB-REF3762 INFO-REF3763))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPBSVX "zpbsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPBSVX
    (FACT UPLO N KD NRHS AB LDAB AFB LDAFB EQUED S B LDB X LDX RCOND
     FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3766 ':INT32) (KD-REF3767 ':INT32)
                              (NRHS-REF3768 ':INT32)
                              (LDAB-REF3770 ':INT32)
                              (LDAFB-REF3772 ':INT32)
                              (LDB-REF3776 ':INT32)
                              (LDX-REF3778 ':INT32)
                              (RCOND-REF3779 ':DOUBLE)
                              (INFO-REF3784 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3766 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3767 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3768 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3770 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF3772 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3776 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3778 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3779 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3784 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3769 AB)
                                            (AFB-REF3771 AFB)
                                            (S-REF3774 S)
                                            (B-REF3775 B)
                                            (X-REF3777 X)
                                            (FERR-REF3780 FERR)
                                            (BERR-REF3781 BERR)
                                            (WORK-REF3782 WORK)
                                            (RWORK-REF3783 RWORK))
      (%%ZPBSVX FACT UPLO N-REF3766 KD-REF3767 NRHS-REF3768 AB-REF3769
       LDAB-REF3770 AFB-REF3771 LDAFB-REF3772 EQUED S-REF3774 B-REF3775
       LDB-REF3776 X-REF3777 LDX-REF3778 RCOND-REF3779 FERR-REF3780
       BERR-REF3781 WORK-REF3782 RWORK-REF3783 INFO-REF3784))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGBTRS "dgbtrs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGBTRS (TRANS N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3786 ':INT32) (KL-REF3787 ':INT32)
                              (KU-REF3788 ':INT32)
                              (NRHS-REF3789 ':INT32)
                              (LDAB-REF3791 ':INT32)
                              (LDB-REF3794 ':INT32)
                              (INFO-REF3795 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3786 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3787 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3788 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3789 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3791 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3794 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3795 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3790 AB)
                                            (IPIV-REF3792 IPIV)
                                            (B-REF3793 B))
      (%%DGBTRS TRANS N-REF3786 KL-REF3787 KU-REF3788 NRHS-REF3789
       AB-REF3790 LDAB-REF3791 IPIV-REF3792 B-REF3793 LDB-REF3794
       INFO-REF3795))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARTG "slartg_")
  ((F :FOREIGN-ADDRESS) (G :FOREIGN-ADDRESS) (CS :FOREIGN-ADDRESS)
   (SN :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARTG (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARTG)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT F)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF3796 ':FLOAT) (G-REF3797 ':FLOAT)
                              (CS-REF3798 ':FLOAT) (SN-REF3799 ':FLOAT)
                              (R-REF3800 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF3796 :FLOAT) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF3797 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF3798 :FLOAT) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF3799 :FLOAT) SN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF3800 :FLOAT) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLARTG F-REF3796 G-REF3797 CS-REF3798 SN-REF3799 R-REF3800))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPOTF2 "cpotf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPOTF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3802 ':INT32) (LDA-REF3804 ':INT32)
                              (INFO-REF3805 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3802 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3804 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3805 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3803 A))
      (%%CPOTF2 UPLO N-REF3802 A-REF3803 LDA-REF3804 INFO-REF3805))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPSTRF "zpstrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (PIV :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (TOL :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPSTRF (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPSTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3807 ':INT32) (LDA-REF3809 ':INT32)
                              (RANK-REF3811 ':INT32)
                              (TOL-REF3812 ':DOUBLE)
                              (INFO-REF3814 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3807 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3809 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF3811 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF3812 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3814 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3808 A)
                                            (PIV-REF3810 PIV)
                                            (WORK-REF3813 WORK))
      (%%ZPSTRF UPLO N-REF3807 A-REF3808 LDA-REF3809 PIV-REF3810
       RANK-REF3811 TOL-REF3812 WORK-REF3813 INFO-REF3814))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEQP3 "dgeqp3_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (JPVT :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEQP3 (M N A LDA JPVT TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQP3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3815 ':INT32) (N-REF3816 ':INT32)
                              (LDA-REF3818 ':INT32)
                              (LWORK-REF3822 ':INT32)
                              (INFO-REF3823 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3815 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3816 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3818 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3822 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3823 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3817 A)
                                            (JPVT-REF3819 JPVT)
                                            (TAU-REF3820 TAU)
                                            (WORK-REF3821 WORK))
      (%%DGEQP3 M-REF3815 N-REF3816 A-REF3817 LDA-REF3818 JPVT-REF3819
       TAU-REF3820 WORK-REF3821 LWORK-REF3822 INFO-REF3823))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAQGE "slaqge_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (ROWCND :FOREIGN-ADDRESS) (COLCND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAQGE (M N A LDA R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3824 ':INT32) (N-REF3825 ':INT32)
                              (LDA-REF3827 ':INT32)
                              (ROWCND-REF3830 ':FLOAT)
                              (COLCND-REF3831 ':FLOAT)
                              (AMAX-REF3832 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3824 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3825 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3827 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF3830 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF3831 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3832 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3826 A)
                                            (R-REF3828 R)
                                            (C-REF3829 C))
      (%%SLAQGE M-REF3824 N-REF3825 A-REF3826 LDA-REF3827 R-REF3828
       C-REF3829 ROWCND-REF3830 COLCND-REF3831 AMAX-REF3832 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNG2L "zung2l_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNG2L (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNG2L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3834 ':INT32) (N-REF3835 ':INT32)
                              (K-REF3836 ':INT32) (LDA-REF3838 ':INT32)
                              (INFO-REF3841 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3834 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3835 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3836 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3838 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3841 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3837 A)
                                            (TAU-REF3839 TAU)
                                            (WORK-REF3840 WORK))
      (%%ZUNG2L M-REF3834 N-REF3835 K-REF3836 A-REF3837 LDA-REF3838
       TAU-REF3839 WORK-REF3840 INFO-REF3841))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNMRZ "zunmrz_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNMRZ
    (SIDE TRANS M N K L A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMRZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3844 ':INT32) (N-REF3845 ':INT32)
                              (K-REF3846 ':INT32) (L-REF3847 ':INT32)
                              (LDA-REF3849 ':INT32)
                              (LDC-REF3852 ':INT32)
                              (LWORK-REF3854 ':INT32)
                              (INFO-REF3855 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3844 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3845 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3846 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF3847 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3849 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3852 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3854 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3855 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3848 A)
                                            (TAU-REF3850 TAU)
                                            (C-REF3851 C)
                                            (WORK-REF3853 WORK))
      (%%ZUNMRZ SIDE TRANS M-REF3844 N-REF3845 K-REF3846 L-REF3847
       A-REF3848 LDA-REF3849 TAU-REF3850 C-REF3851 LDC-REF3852
       WORK-REF3853 LWORK-REF3854 INFO-REF3855))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPOSV "sposv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPOSV (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3857 ':INT32)
                              (NRHS-REF3858 ':INT32)
                              (LDA-REF3860 ':INT32)
                              (LDB-REF3862 ':INT32)
                              (INFO-REF3863 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3857 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3858 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3860 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3862 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3863 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3859 A)
                                            (B-REF3861 B))
      (%%SPOSV UPLO N-REF3857 NRHS-REF3858 A-REF3859 LDA-REF3860
       B-REF3861 LDB-REF3862 INFO-REF3863))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYEVD_2STAGE "ssyevd_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYEVD_2STAGE
    (JOBZ UPLO N A LDA W WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEVD_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3866 ':INT32) (LDA-REF3868 ':INT32)
                              (LWORK-REF3871 ':INT32)
                              (LIWORK-REF3873 ':INT32)
                              (INFO-REF3874 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3866 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3868 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3871 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF3873 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3874 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3867 A)
                                            (W-REF3869 W)
                                            (WORK-REF3870 WORK)
                                            (IWORK-REF3872 IWORK))
      (%%SSYEVD_2STAGE JOBZ UPLO N-REF3866 A-REF3867 LDA-REF3868
       W-REF3869 WORK-REF3870 LWORK-REF3871 IWORK-REF3872
       LIWORK-REF3873 INFO-REF3874))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGETF2 "dgetf2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGETF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETF2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3875 ':INT32) (N-REF3876 ':INT32)
                              (LDA-REF3878 ':INT32)
                              (INFO-REF3880 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3875 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3876 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3878 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3880 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3877 A)
                                            (IPIV-REF3879 IPIV))
      (%%DGETF2 M-REF3875 N-REF3876 A-REF3877 LDA-REF3878 IPIV-REF3879
       INFO-REF3880))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARRA "slarra_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (E2 :FOREIGN-ADDRESS) (SPLTOL :FOREIGN-ADDRESS)
   (TNRM :FOREIGN-ADDRESS) (NSPLIT :FOREIGN-ADDRESS)
   (ISPLIT :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARRA (N D E E2 SPLTOL TNRM NSPLIT ISPLIT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPLTOL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TNRM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3881 ':INT32)
                              (SPLTOL-REF3885 ':FLOAT)
                              (TNRM-REF3886 ':FLOAT)
                              (NSPLIT-REF3887 ':INT32)
                              (INFO-REF3889 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3881 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF3885 :FLOAT) SPLTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF TNRM-REF3886 :FLOAT) TNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF3887 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3889 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3882 D)
                                            (E-REF3883 E)
                                            (E2-REF3884 E2)
                                            (ISPLIT-REF3888 ISPLIT))
      (%%SLARRA N-REF3881 D-REF3882 E-REF3883 E2-REF3884 SPLTOL-REF3885
       TNRM-REF3886 NSPLIT-REF3887 ISPLIT-REF3888 INFO-REF3889))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLANV2 "slanv2_")
  ((A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (RT1R :FOREIGN-ADDRESS) (RT1I :FOREIGN-ADDRESS)
   (RT2R :FOREIGN-ADDRESS) (RT2I :FOREIGN-ADDRESS)
   (CS :FOREIGN-ADDRESS) (SN :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLANV2 (A B C D RT1R RT1I RT2R RT2I CS SN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANV2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT D)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1R)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1I)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2R)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2I)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF3890 ':FLOAT) (B-REF3891 ':FLOAT)
                              (C-REF3892 ':FLOAT) (D-REF3893 ':FLOAT)
                              (RT1R-REF3894 ':FLOAT)
                              (RT1I-REF3895 ':FLOAT)
                              (RT2R-REF3896 ':FLOAT)
                              (RT2I-REF3897 ':FLOAT)
                              (CS-REF3898 ':FLOAT)
                              (SN-REF3899 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF3890 :FLOAT) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF3891 :FLOAT) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF3892 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF D-REF3893 :FLOAT) D)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1R-REF3894 :FLOAT) RT1R)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1I-REF3895 :FLOAT) RT1I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2R-REF3896 :FLOAT) RT2R)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2I-REF3897 :FLOAT) RT2I)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF3898 :FLOAT) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF3899 :FLOAT) SN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLANV2 A-REF3890 B-REF3891 C-REF3892 D-REF3893 RT1R-REF3894
       RT1I-REF3895 RT2R-REF3896 RT2I-REF3897 CS-REF3898 SN-REF3899))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAE2 "slae2_")
  ((A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (RT1 :FOREIGN-ADDRESS) (RT2 :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAE2 (A B C RT1 RT2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAE2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF3900 ':FLOAT) (B-REF3901 ':FLOAT)
                              (C-REF3902 ':FLOAT) (RT1-REF3903 ':FLOAT)
                              (RT2-REF3904 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF3900 :FLOAT) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF3901 :FLOAT) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF3902 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF3903 :FLOAT) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF3904 :FLOAT) RT2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAE2 A-REF3900 B-REF3901 C-REF3902 RT1-REF3903 RT2-REF3904))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSTEMR "cstemr_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (NZC :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (TRYRAC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSTEMR
    (JOBZ RANGE N D E VL VU IL IU M W Z LDZ NZC ISUPPZ TRYRAC WORK
     LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSTEMR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRYRAC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3907 ':INT32) (VL-REF3910 ':FLOAT)
                              (VU-REF3911 ':FLOAT) (IL-REF3912 ':INT32)
                              (IU-REF3913 ':INT32) (M-REF3914 ':INT32)
                              (LDZ-REF3917 ':INT32)
                              (NZC-REF3918 ':INT32)
                              (TRYRAC-REF3920 ':INT32)
                              (LWORK-REF3922 ':INT32)
                              (LIWORK-REF3924 ':INT32)
                              (INFO-REF3925 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3907 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF3910 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF3911 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF3912 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF3913 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3914 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3917 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF3918 :INT32) NZC)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF3920 :INT32) TRYRAC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3922 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF3924 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3925 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3908 D)
                                            (E-REF3909 E)
                                            (W-REF3915 W)
                                            (Z-REF3916 Z)
                                            (ISUPPZ-REF3919 ISUPPZ)
                                            (WORK-REF3921 WORK)
                                            (IWORK-REF3923 IWORK))
      (%%CSTEMR JOBZ RANGE N-REF3907 D-REF3908 E-REF3909 VL-REF3910
       VU-REF3911 IL-REF3912 IU-REF3913 M-REF3914 W-REF3915 Z-REF3916
       LDZ-REF3917 NZC-REF3918 ISUPPZ-REF3919 TRYRAC-REF3920
       WORK-REF3921 LWORK-REF3922 IWORK-REF3923 LIWORK-REF3924
       INFO-REF3925))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTPTRS "dtptrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTPTRS (UPLO TRANS DIAG N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3929 ':INT32)
                              (NRHS-REF3930 ':INT32)
                              (LDB-REF3933 ':INT32)
                              (INFO-REF3934 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3929 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3930 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3933 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3934 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3931 AP)
                                            (B-REF3932 B))
      (%%DTPTRS UPLO TRANS DIAG N-REF3929 NRHS-REF3930 AP-REF3931
       B-REF3932 LDB-REF3933 INFO-REF3934))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARGV "zlargv_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (INCC :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARGV (N X INCX Y INCY C INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARGV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3935 ':INT32)
                              (INCX-REF3937 ':INT32)
                              (INCY-REF3939 ':INT32)
                              (INCC-REF3941 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3935 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3937 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF3939 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF3941 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3936 X)
                                            (Y-REF3938 Y)
                                            (C-REF3940 C))
      (%%ZLARGV N-REF3935 X-REF3936 INCX-REF3937 Y-REF3938 INCY-REF3939
       C-REF3940 INCC-REF3941))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLALS0 "zlals0_")
  ((ICOMPQ :FOREIGN-ADDRESS) (NL :FOREIGN-ADDRESS)
   (NR :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (BX :FOREIGN-ADDRESS) (LDBX :FOREIGN-ADDRESS)
   (PERM :FOREIGN-ADDRESS) (GIVPTR :FOREIGN-ADDRESS)
   (GIVCOL :FOREIGN-ADDRESS) (LDGCOL :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (LDGNUM :FOREIGN-ADDRESS)
   (POLES :FOREIGN-ADDRESS) (DIFL :FOREIGN-ADDRESS)
   (DIFR :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLALS0
    (ICOMPQ NL NR SQRE NRHS B LDB BX LDBX PERM GIVPTR GIVCOL LDGCOL
     GIVNUM LDGNUM POLES DIFL DIFR Z K C S RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLALS0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) POLES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIFL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIFR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF3942 ':INT32)
                              (NL-REF3943 ':INT32) (NR-REF3944 ':INT32)
                              (SQRE-REF3945 ':INT32)
                              (NRHS-REF3946 ':INT32)
                              (LDB-REF3948 ':INT32)
                              (LDBX-REF3950 ':INT32)
                              (GIVPTR-REF3952 ':INT32)
                              (LDGCOL-REF3954 ':INT32)
                              (LDGNUM-REF3956 ':INT32)
                              (K-REF3961 ':INT32) (C-REF3962 ':DOUBLE)
                              (S-REF3963 ':DOUBLE)
                              (INFO-REF3965 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF3942 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF3943 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF3944 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF3945 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3946 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3948 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF3950 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF3952 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF3954 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF3956 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3961 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF3962 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF3963 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3965 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF3947 B)
                                            (BX-REF3949 BX)
                                            (PERM-REF3951 PERM)
                                            (GIVCOL-REF3953 GIVCOL)
                                            (GIVNUM-REF3955 GIVNUM)
                                            (POLES-REF3957 POLES)
                                            (DIFL-REF3958 DIFL)
                                            (DIFR-REF3959 DIFR)
                                            (Z-REF3960 Z)
                                            (RWORK-REF3964 RWORK))
      (%%ZLALS0 ICOMPQ-REF3942 NL-REF3943 NR-REF3944 SQRE-REF3945
       NRHS-REF3946 B-REF3947 LDB-REF3948 BX-REF3949 LDBX-REF3950
       PERM-REF3951 GIVPTR-REF3952 GIVCOL-REF3953 LDGCOL-REF3954
       GIVNUM-REF3955 LDGNUM-REF3956 POLES-REF3957 DIFL-REF3958
       DIFR-REF3959 Z-REF3960 K-REF3961 C-REF3962 S-REF3963
       RWORK-REF3964 INFO-REF3965))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTREXC "ctrexc_")
  ((COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (IFST :FOREIGN-ADDRESS)
   (ILST :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTREXC (COMPQ N T LDT Q LDQ IFST ILST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTREXC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3967 ':INT32) (LDT-REF3969 ':INT32)
                              (LDQ-REF3971 ':INT32)
                              (IFST-REF3972 ':INT32)
                              (ILST-REF3973 ':INT32)
                              (INFO-REF3974 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3967 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3969 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF3971 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF3972 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF3973 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3974 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF3968 T)
                                            (Q-REF3970 Q))
      (%%CTREXC COMPQ N-REF3967 T-REF3968 LDT-REF3969 Q-REF3970
       LDQ-REF3971 IFST-REF3972 ILST-REF3973 INFO-REF3974))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGBAL "sggbal_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (LSCALE :FOREIGN-ADDRESS) (RSCALE :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGBAL
    (JOB N A LDA B LDB ILO IHI LSCALE RSCALE WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGBAL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3976 ':INT32) (LDA-REF3978 ':INT32)
                              (LDB-REF3980 ':INT32)
                              (ILO-REF3981 ':INT32)
                              (IHI-REF3982 ':INT32)
                              (INFO-REF3986 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3976 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3978 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3980 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF3981 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF3982 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3986 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3977 A)
                                            (B-REF3979 B)
                                            (LSCALE-REF3983 LSCALE)
                                            (RSCALE-REF3984 RSCALE)
                                            (WORK-REF3985 WORK))
      (%%SGGBAL JOB N-REF3976 A-REF3977 LDA-REF3978 B-REF3979
       LDB-REF3980 ILO-REF3981 IHI-REF3982 LSCALE-REF3983
       RSCALE-REF3984 WORK-REF3985 INFO-REF3986))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STPRFS "stprfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STPRFS
    (UPLO TRANS DIAG N NRHS AP B LDB X LDX FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3990 ':INT32)
                              (NRHS-REF3991 ':INT32)
                              (LDB-REF3994 ':INT32)
                              (LDX-REF3996 ':INT32)
                              (INFO-REF4001 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3990 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3991 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3994 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3996 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4001 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3992 AP)
                                            (B-REF3993 B)
                                            (X-REF3995 X)
                                            (FERR-REF3997 FERR)
                                            (BERR-REF3998 BERR)
                                            (WORK-REF3999 WORK)
                                            (IWORK-REF4000 IWORK))
      (%%STPRFS UPLO TRANS DIAG N-REF3990 NRHS-REF3991 AP-REF3992
       B-REF3993 LDB-REF3994 X-REF3995 LDX-REF3996 FERR-REF3997
       BERR-REF3998 WORK-REF3999 IWORK-REF4000 INFO-REF4001))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANSB "clansb_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANSB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANSB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4004 ':INT32) (K-REF4005 ':INT32)
                              (LDAB-REF4007 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4004 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF4005 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4007 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4006 AB)
                                            (WORK-REF4008 WORK))
      (%%CLANSB NORM UPLO N-REF4004 K-REF4005 AB-REF4006 LDAB-REF4007
       WORK-REF4008))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPGST "sspgst_")
  ((ITYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPGST (ITYPE UPLO N AP BP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPGST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF4009 ':INT32)
                              (N-REF4011 ':INT32)
                              (INFO-REF4014 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF4009 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4011 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4014 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4012 AP)
                                            (BP-REF4013 BP))
      (%%SSPGST ITYPE-REF4009 UPLO N-REF4011 AP-REF4012 BP-REF4013
       INFO-REF4014))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORGBR "dorgbr_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORGBR (VECT M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4016 ':INT32) (N-REF4017 ':INT32)
                              (K-REF4018 ':INT32) (LDA-REF4020 ':INT32)
                              (LWORK-REF4023 ':INT32)
                              (INFO-REF4024 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4016 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4017 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF4018 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4020 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4023 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4024 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4019 A)
                                            (TAU-REF4021 TAU)
                                            (WORK-REF4022 WORK))
      (%%DORGBR VECT M-REF4016 N-REF4017 K-REF4018 A-REF4019
       LDA-REF4020 TAU-REF4021 WORK-REF4022 LWORK-REF4023
       INFO-REF4024))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPPTRS "cpptrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPPTRS (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4026 ':INT32)
                              (NRHS-REF4027 ':INT32)
                              (LDB-REF4030 ':INT32)
                              (INFO-REF4031 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4026 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4027 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4030 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4031 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4028 AP)
                                            (B-REF4029 B))
      (%%CPPTRS UPLO N-REF4026 NRHS-REF4027 AP-REF4028 B-REF4029
       LDB-REF4030 INFO-REF4031))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%SLA_GBRFSX_EXTENDED "sla_gbrfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS) (TRANS_TYPE :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (COLEQU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_GBRFSX_EXTENDED
    (PREC_TYPE TRANS_TYPE N KL KU NRHS AB LDAB AFB LDAFB IPIV COLEQU C
     B LDB Y LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB
     DY Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GBRFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS_TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF4032 ':INT32)
                              (TRANS_TYPE-REF4033 ':INT32)
                              (N-REF4034 ':INT32) (KL-REF4035 ':INT32)
                              (KU-REF4036 ':INT32)
                              (NRHS-REF4037 ':INT32)
                              (LDAB-REF4039 ':INT32)
                              (LDAFB-REF4041 ':INT32)
                              (COLEQU-REF4043 ':INT32)
                              (LDB-REF4046 ':INT32)
                              (LDY-REF4048 ':INT32)
                              (N_NORMS-REF4050 ':INT32)
                              (RCOND-REF4057 ':FLOAT)
                              (ITHRESH-REF4058 ':INT32)
                              (RTHRESH-REF4059 ':FLOAT)
                              (DZ_UB-REF4060 ':FLOAT)
                              (IGNORE_CWISE-REF4061 ':INT32)
                              (INFO-REF4062 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF4032 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF4033 :INT32)
                      TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4034 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF4035 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF4036 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4037 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4039 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF4041 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF4043 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4046 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF4048 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF4050 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4057 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF4058 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF4059 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF4060 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF4061 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4062 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4038 AB)
                                            (AFB-REF4040 AFB)
                                            (IPIV-REF4042 IPIV)
                                            (C-REF4044 C)
                                            (B-REF4045 B)
                                            (Y-REF4047 Y)
                                            (BERR_OUT-REF4049 BERR_OUT)
                                            (ERR_BNDS_NORM-REF4051
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF4052
                                             ERR_BNDS_COMP)
                                            (RES-REF4053 RES)
                                            (AYB-REF4054 AYB)
                                            (DY-REF4055 DY)
                                            (Y_TAIL-REF4056 Y_TAIL))
      (%%SLA_GBRFSX_EXTENDED PREC_TYPE-REF4032 TRANS_TYPE-REF4033
       N-REF4034 KL-REF4035 KU-REF4036 NRHS-REF4037 AB-REF4038
       LDAB-REF4039 AFB-REF4040 LDAFB-REF4041 IPIV-REF4042
       COLEQU-REF4043 C-REF4044 B-REF4045 LDB-REF4046 Y-REF4047
       LDY-REF4048 BERR_OUT-REF4049 N_NORMS-REF4050
       ERR_BNDS_NORM-REF4051 ERR_BNDS_COMP-REF4052 RES-REF4053
       AYB-REF4054 DY-REF4055 Y_TAIL-REF4056 RCOND-REF4057
       ITHRESH-REF4058 RTHRESH-REF4059 DZ_UB-REF4060
       IGNORE_CWISE-REF4061 INFO-REF4062))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPBEQU "zpbequ_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPBEQU (UPLO N KD AB LDAB S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBEQU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4064 ':INT32) (KD-REF4065 ':INT32)
                              (LDAB-REF4067 ':INT32)
                              (SCOND-REF4069 ':DOUBLE)
                              (AMAX-REF4070 ':DOUBLE)
                              (INFO-REF4071 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4064 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4065 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4067 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF4069 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF4070 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4071 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4066 AB)
                                            (S-REF4068 S))
      (%%ZPBEQU UPLO N-REF4064 KD-REF4065 AB-REF4066 LDAB-REF4067
       S-REF4068 SCOND-REF4069 AMAX-REF4070 INFO-REF4071))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARTGP "slartgp_")
  ((F :FOREIGN-ADDRESS) (G :FOREIGN-ADDRESS) (CS :FOREIGN-ADDRESS)
   (SN :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARTGP (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARTGP)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT F)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF4072 ':FLOAT) (G-REF4073 ':FLOAT)
                              (CS-REF4074 ':FLOAT) (SN-REF4075 ':FLOAT)
                              (R-REF4076 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF4072 :FLOAT) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF4073 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF4074 :FLOAT) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF4075 :FLOAT) SN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF4076 :FLOAT) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLARTGP F-REF4072 G-REF4073 CS-REF4074 SN-REF4075 R-REF4076))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQSY "zlaqsy_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SCOND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQSY (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQSY)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4078 ':INT32) (LDA-REF4080 ':INT32)
                              (SCOND-REF4082 ':DOUBLE)
                              (AMAX-REF4083 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4078 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4080 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF4082 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF4083 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4079 A)
                                            (S-REF4081 S))
      (%%ZLAQSY UPLO N-REF4078 A-REF4079 LDA-REF4080 S-REF4081
       SCOND-REF4082 AMAX-REF4083 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTRSNA "ztrsna_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SEP :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LDWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTRSNA
    (JOB HOWMNY SELECT N T LDT VL LDVL VR LDVR S SEP MM M WORK LDWORK
     RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRSNA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SEP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4088 ':INT32) (LDT-REF4090 ':INT32)
                              (LDVL-REF4092 ':INT32)
                              (LDVR-REF4094 ':INT32)
                              (MM-REF4097 ':INT32) (M-REF4098 ':INT32)
                              (LDWORK-REF4100 ':INT32)
                              (INFO-REF4102 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4088 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF4090 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF4092 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF4094 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF4097 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4098 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF4100 :INT32) LDWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4102 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF4087 SELECT)
                                            (T-REF4089 T)
                                            (VL-REF4091 VL)
                                            (VR-REF4093 VR)
                                            (S-REF4095 S)
                                            (SEP-REF4096 SEP)
                                            (WORK-REF4099 WORK)
                                            (RWORK-REF4101 RWORK))
      (%%ZTRSNA JOB HOWMNY SELECT-REF4087 N-REF4088 T-REF4089
       LDT-REF4090 VL-REF4091 LDVL-REF4092 VR-REF4093 LDVR-REF4094
       S-REF4095 SEP-REF4096 MM-REF4097 M-REF4098 WORK-REF4099
       LDWORK-REF4100 RWORK-REF4101 INFO-REF4102))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEBD2 "zgebd2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (TAUQ :FOREIGN-ADDRESS) (TAUP :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEBD2 (M N A LDA D E TAUQ TAUP WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEBD2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4103 ':INT32) (N-REF4104 ':INT32)
                              (LDA-REF4106 ':INT32)
                              (INFO-REF4112 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4103 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4104 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4106 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4112 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4105 A)
                                            (D-REF4107 D)
                                            (E-REF4108 E)
                                            (TAUQ-REF4109 TAUQ)
                                            (TAUP-REF4110 TAUP)
                                            (WORK-REF4111 WORK))
      (%%ZGEBD2 M-REF4103 N-REF4104 A-REF4105 LDA-REF4106 D-REF4107
       E-REF4108 TAUQ-REF4109 TAUP-REF4110 WORK-REF4111 INFO-REF4112))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAGTM "clagtm_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (DU :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAGTM
    (TRANS N NRHS ALPHA DL D DU X LDX BETA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAGTM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4114 ':INT32)
                              (NRHS-REF4115 ':INT32)
                              (ALPHA-REF4116 ':FLOAT)
                              (LDX-REF4121 ':INT32)
                              (BETA-REF4122 ':FLOAT)
                              (LDB-REF4124 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4114 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4115 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF4116 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4121 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF4122 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4124 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF4117 DL)
                                            (D-REF4118 D)
                                            (DU-REF4119 DU)
                                            (X-REF4120 X)
                                            (B-REF4123 B))
      (%%CLAGTM TRANS N-REF4114 NRHS-REF4115 ALPHA-REF4116 DL-REF4117
       D-REF4118 DU-REF4119 X-REF4120 LDX-REF4121 BETA-REF4122
       B-REF4123 LDB-REF4124))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGELQT3 "cgelqt3_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGELQT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQT3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4125 ':INT32) (N-REF4126 ':INT32)
                              (LDA-REF4128 ':INT32)
                              (LDT-REF4130 ':INT32)
                              (INFO-REF4131 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4125 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4126 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4128 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF4130 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4131 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4127 A)
                                            (T-REF4129 T))
      (%%CGELQT3 M-REF4125 N-REF4126 A-REF4127 LDA-REF4128 T-REF4129
       LDT-REF4130 INFO-REF4131))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYEVR_2STAGE "dsyevr_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYEVR_2STAGE
    (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
     LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVR_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4135 ':INT32) (LDA-REF4137 ':INT32)
                              (VL-REF4138 ':DOUBLE)
                              (VU-REF4139 ':DOUBLE)
                              (IL-REF4140 ':INT32) (IU-REF4141 ':INT32)
                              (ABSTOL-REF4142 ':DOUBLE)
                              (M-REF4143 ':INT32) (LDZ-REF4146 ':INT32)
                              (LWORK-REF4149 ':INT32)
                              (LIWORK-REF4151 ':INT32)
                              (INFO-REF4152 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4135 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4137 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF4138 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF4139 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF4140 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF4141 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF4142 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4143 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4146 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4149 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4151 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4152 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4136 A)
                                            (W-REF4144 W)
                                            (Z-REF4145 Z)
                                            (ISUPPZ-REF4147 ISUPPZ)
                                            (WORK-REF4148 WORK)
                                            (IWORK-REF4150 IWORK))
      (%%DSYEVR_2STAGE JOBZ RANGE UPLO N-REF4135 A-REF4136 LDA-REF4137
       VL-REF4138 VU-REF4139 IL-REF4140 IU-REF4141 ABSTOL-REF4142
       M-REF4143 W-REF4144 Z-REF4145 LDZ-REF4146 ISUPPZ-REF4147
       WORK-REF4148 LWORK-REF4149 IWORK-REF4150 LIWORK-REF4151
       INFO-REF4152))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHESVX "zhesvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHESVX
    (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR BERR
     WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4155 ':INT32)
                              (NRHS-REF4156 ':INT32)
                              (LDA-REF4158 ':INT32)
                              (LDAF-REF4160 ':INT32)
                              (LDB-REF4163 ':INT32)
                              (LDX-REF4165 ':INT32)
                              (RCOND-REF4166 ':DOUBLE)
                              (LWORK-REF4170 ':INT32)
                              (INFO-REF4172 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4155 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4156 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4158 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4160 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4163 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4165 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4166 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4170 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4172 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4157 A)
                                            (AF-REF4159 AF)
                                            (IPIV-REF4161 IPIV)
                                            (B-REF4162 B)
                                            (X-REF4164 X)
                                            (FERR-REF4167 FERR)
                                            (BERR-REF4168 BERR)
                                            (WORK-REF4169 WORK)
                                            (RWORK-REF4171 RWORK))
      (%%ZHESVX FACT UPLO N-REF4155 NRHS-REF4156 A-REF4157 LDA-REF4158
       AF-REF4159 LDAF-REF4160 IPIV-REF4161 B-REF4162 LDB-REF4163
       X-REF4164 LDX-REF4165 RCOND-REF4166 FERR-REF4167 BERR-REF4168
       WORK-REF4169 LWORK-REF4170 RWORK-REF4171 INFO-REF4172))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPOSVXX "sposvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RPVGRW :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPOSVXX
    (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND RPVGRW
     BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK
     IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOSVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4175 ':INT32)
                              (NRHS-REF4176 ':INT32)
                              (LDA-REF4178 ':INT32)
                              (LDAF-REF4180 ':INT32)
                              (LDB-REF4184 ':INT32)
                              (LDX-REF4186 ':INT32)
                              (RCOND-REF4187 ':FLOAT)
                              (RPVGRW-REF4188 ':FLOAT)
                              (N_ERR_BNDS-REF4190 ':INT32)
                              (NPARAMS-REF4193 ':INT32)
                              (INFO-REF4197 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4175 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4176 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4178 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4180 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4184 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4186 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4187 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF4188 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF4190 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF4193 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4197 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4177 A)
                                            (AF-REF4179 AF)
                                            (S-REF4182 S)
                                            (B-REF4183 B)
                                            (X-REF4185 X)
                                            (BERR-REF4189 BERR)
                                            (ERR_BNDS_NORM-REF4191
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF4192
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF4194 PARAMS)
                                            (WORK-REF4195 WORK)
                                            (IWORK-REF4196 IWORK))
      (%%SPOSVXX FACT UPLO N-REF4175 NRHS-REF4176 A-REF4177 LDA-REF4178
       AF-REF4179 LDAF-REF4180 EQUED S-REF4182 B-REF4183 LDB-REF4184
       X-REF4185 LDX-REF4186 RCOND-REF4187 RPVGRW-REF4188 BERR-REF4189
       N_ERR_BNDS-REF4190 ERR_BNDS_NORM-REF4191 ERR_BNDS_COMP-REF4192
       NPARAMS-REF4193 PARAMS-REF4194 WORK-REF4195 IWORK-REF4196
       INFO-REF4197))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGELSS "zgelss_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGELSS
    (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELSS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4198 ':INT32) (N-REF4199 ':INT32)
                              (NRHS-REF4200 ':INT32)
                              (LDA-REF4202 ':INT32)
                              (LDB-REF4204 ':INT32)
                              (RCOND-REF4206 ':DOUBLE)
                              (RANK-REF4207 ':INT32)
                              (LWORK-REF4209 ':INT32)
                              (INFO-REF4211 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4198 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4199 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4200 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4202 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4204 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4206 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF4207 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4209 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4211 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4201 A)
                                            (B-REF4203 B)
                                            (S-REF4205 S)
                                            (WORK-REF4208 WORK)
                                            (RWORK-REF4210 RWORK))
      (%%ZGELSS M-REF4198 N-REF4199 NRHS-REF4200 A-REF4201 LDA-REF4202
       B-REF4203 LDB-REF4204 S-REF4205 RCOND-REF4206 RANK-REF4207
       WORK-REF4208 LWORK-REF4209 RWORK-REF4210 INFO-REF4211))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ILATRANS "ilatrans_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)) :RETURNING :INT
  :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ILATRANS (TRANS)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILATRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILATRANS TRANS))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTFTTP "ctfttp_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ARF :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTFTTP (TRANSR UPLO N ARF AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTFTTP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    ARF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4215 ':INT32)
                              (INFO-REF4218 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4215 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4218 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF4216 ARF)
                                            (AP-REF4217 AP))
      (%%CTFTTP TRANSR UPLO N-REF4215 ARF-REF4216 AP-REF4217
       INFO-REF4218))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPORFS "cporfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPORFS
    (UPLO N NRHS A LDA AF LDAF B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPORFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4220 ':INT32)
                              (NRHS-REF4221 ':INT32)
                              (LDA-REF4223 ':INT32)
                              (LDAF-REF4225 ':INT32)
                              (LDB-REF4227 ':INT32)
                              (LDX-REF4229 ':INT32)
                              (INFO-REF4234 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4220 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4221 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4223 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4225 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4227 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4229 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4234 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4222 A)
                                            (AF-REF4224 AF)
                                            (B-REF4226 B)
                                            (X-REF4228 X)
                                            (FERR-REF4230 FERR)
                                            (BERR-REF4231 BERR)
                                            (WORK-REF4232 WORK)
                                            (RWORK-REF4233 RWORK))
      (%%CPORFS UPLO N-REF4220 NRHS-REF4221 A-REF4222 LDA-REF4223
       AF-REF4224 LDAF-REF4225 B-REF4226 LDB-REF4227 X-REF4228
       LDX-REF4229 FERR-REF4230 BERR-REF4231 WORK-REF4232 RWORK-REF4233
       INFO-REF4234))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAEDA "dlaeda_")
  ((N :FOREIGN-ADDRESS) (TLVLS :FOREIGN-ADDRESS)
   (CURLVL :FOREIGN-ADDRESS) (CURPBM :FOREIGN-ADDRESS)
   (PRMPTR :FOREIGN-ADDRESS) (PERM :FOREIGN-ADDRESS)
   (GIVPTR :FOREIGN-ADDRESS) (GIVCOL :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (QPTR :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (ZTEMP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAEDA
    (N TLVLS CURLVL CURPBM PRMPTR PERM GIVPTR GIVCOL GIVNUM Q QPTR Z
     ZTEMP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PRMPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    QPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ZTEMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4235 ':INT32)
                              (TLVLS-REF4236 ':INT32)
                              (CURLVL-REF4237 ':INT32)
                              (CURPBM-REF4238 ':INT32)
                              (INFO-REF4248 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4235 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF4236 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF4237 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF4238 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4248 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((PRMPTR-REF4239 PRMPTR)
                                            (PERM-REF4240 PERM)
                                            (GIVPTR-REF4241 GIVPTR)
                                            (GIVCOL-REF4242 GIVCOL)
                                            (GIVNUM-REF4243 GIVNUM)
                                            (Q-REF4244 Q)
                                            (QPTR-REF4245 QPTR)
                                            (Z-REF4246 Z)
                                            (ZTEMP-REF4247 ZTEMP))
      (%%DLAEDA N-REF4235 TLVLS-REF4236 CURLVL-REF4237 CURPBM-REF4238
       PRMPTR-REF4239 PERM-REF4240 GIVPTR-REF4241 GIVCOL-REF4242
       GIVNUM-REF4243 Q-REF4244 QPTR-REF4245 Z-REF4246 ZTEMP-REF4247
       INFO-REF4248))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHPRFS "chprfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHPRFS
    (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AFP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4250 ':INT32)
                              (NRHS-REF4251 ':INT32)
                              (LDB-REF4256 ':INT32)
                              (LDX-REF4258 ':INT32)
                              (INFO-REF4263 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4250 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4251 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4256 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4258 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4263 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4252 AP)
                                            (AFP-REF4253 AFP)
                                            (IPIV-REF4254 IPIV)
                                            (B-REF4255 B)
                                            (X-REF4257 X)
                                            (FERR-REF4259 FERR)
                                            (BERR-REF4260 BERR)
                                            (WORK-REF4261 WORK)
                                            (RWORK-REF4262 RWORK))
      (%%CHPRFS UPLO N-REF4250 NRHS-REF4251 AP-REF4252 AFP-REF4253
       IPIV-REF4254 B-REF4255 LDB-REF4256 X-REF4257 LDX-REF4258
       FERR-REF4259 BERR-REF4260 WORK-REF4261 RWORK-REF4262
       INFO-REF4263))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYEQUB "ssyequb_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SCOND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEQUB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4265 ':INT32) (LDA-REF4267 ':INT32)
                              (SCOND-REF4269 ':FLOAT)
                              (AMAX-REF4270 ':FLOAT)
                              (INFO-REF4272 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4265 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4267 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF4269 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF4270 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4272 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4266 A)
                                            (S-REF4268 S)
                                            (WORK-REF4271 WORK))
      (%%SSYEQUB UPLO N-REF4265 A-REF4266 LDA-REF4267 S-REF4268
       SCOND-REF4269 AMAX-REF4270 WORK-REF4271 INFO-REF4272))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGGBAL "dggbal_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (LSCALE :FOREIGN-ADDRESS) (RSCALE :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGGBAL
    (JOB N A LDA B LDB ILO IHI LSCALE RSCALE WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGBAL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4274 ':INT32) (LDA-REF4276 ':INT32)
                              (LDB-REF4278 ':INT32)
                              (ILO-REF4279 ':INT32)
                              (IHI-REF4280 ':INT32)
                              (INFO-REF4284 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4274 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4276 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4278 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF4279 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF4280 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4284 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4275 A)
                                            (B-REF4277 B)
                                            (LSCALE-REF4281 LSCALE)
                                            (RSCALE-REF4282 RSCALE)
                                            (WORK-REF4283 WORK))
      (%%DGGBAL JOB N-REF4274 A-REF4275 LDA-REF4276 B-REF4277
       LDB-REF4278 ILO-REF4279 IHI-REF4280 LSCALE-REF4281
       RSCALE-REF4282 WORK-REF4283 INFO-REF4284))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STPQRT "stpqrt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STPQRT (M N L NB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPQRT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4285 ':INT32) (N-REF4286 ':INT32)
                              (L-REF4287 ':INT32) (NB-REF4288 ':INT32)
                              (LDA-REF4290 ':INT32)
                              (LDB-REF4292 ':INT32)
                              (LDT-REF4294 ':INT32)
                              (INFO-REF4296 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4285 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4286 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF4287 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF4288 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4290 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4292 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF4294 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4296 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4289 A)
                                            (B-REF4291 B)
                                            (T-REF4293 T)
                                            (WORK-REF4295 WORK))
      (%%STPQRT M-REF4285 N-REF4286 L-REF4287 NB-REF4288 A-REF4289
       LDA-REF4290 B-REF4291 LDB-REF4292 T-REF4293 LDT-REF4294
       WORK-REF4295 INFO-REF4296))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGTSVX "zgtsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS) (DLF :FOREIGN-ADDRESS)
   (DF :FOREIGN-ADDRESS) (DUF :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGTSVX
    (FACT TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX RCOND
     FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DLF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DUF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4299 ':INT32)
                              (NRHS-REF4300 ':INT32)
                              (LDB-REF4310 ':INT32)
                              (LDX-REF4312 ':INT32)
                              (RCOND-REF4313 ':DOUBLE)
                              (INFO-REF4318 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4299 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4300 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4310 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4312 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4313 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4318 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF4301 DL)
                                            (D-REF4302 D)
                                            (DU-REF4303 DU)
                                            (DLF-REF4304 DLF)
                                            (DF-REF4305 DF)
                                            (DUF-REF4306 DUF)
                                            (DU2-REF4307 DU2)
                                            (IPIV-REF4308 IPIV)
                                            (B-REF4309 B)
                                            (X-REF4311 X)
                                            (FERR-REF4314 FERR)
                                            (BERR-REF4315 BERR)
                                            (WORK-REF4316 WORK)
                                            (RWORK-REF4317 RWORK))
      (%%ZGTSVX FACT TRANS N-REF4299 NRHS-REF4300 DL-REF4301 D-REF4302
       DU-REF4303 DLF-REF4304 DF-REF4305 DUF-REF4306 DU2-REF4307
       IPIV-REF4308 B-REF4309 LDB-REF4310 X-REF4311 LDX-REF4312
       RCOND-REF4313 FERR-REF4314 BERR-REF4315 WORK-REF4316
       RWORK-REF4317 INFO-REF4318))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STBRFS "stbrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STBRFS
    (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB X LDX FERR BERR WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STBRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4322 ':INT32) (KD-REF4323 ':INT32)
                              (NRHS-REF4324 ':INT32)
                              (LDAB-REF4326 ':INT32)
                              (LDB-REF4328 ':INT32)
                              (LDX-REF4330 ':INT32)
                              (INFO-REF4335 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4322 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4323 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4324 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4326 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4328 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4330 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4335 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4325 AB)
                                            (B-REF4327 B)
                                            (X-REF4329 X)
                                            (FERR-REF4331 FERR)
                                            (BERR-REF4332 BERR)
                                            (WORK-REF4333 WORK)
                                            (IWORK-REF4334 IWORK))
      (%%STBRFS UPLO TRANS DIAG N-REF4322 KD-REF4323 NRHS-REF4324
       AB-REF4325 LDAB-REF4326 B-REF4327 LDB-REF4328 X-REF4329
       LDX-REF4330 FERR-REF4331 BERR-REF4332 WORK-REF4333 IWORK-REF4334
       INFO-REF4335))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRI_3X "dsytri_3x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRI_3X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4337 ':INT32) (LDA-REF4339 ':INT32)
                              (NB-REF4343 ':INT32)
                              (INFO-REF4344 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4337 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4339 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF4343 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4344 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4338 A)
                                            (E-REF4340 E)
                                            (IPIV-REF4341 IPIV)
                                            (WORK-REF4342 WORK))
      (%%DSYTRI_3X UPLO N-REF4337 A-REF4338 LDA-REF4339 E-REF4340
       IPIV-REF4341 WORK-REF4342 NB-REF4343 INFO-REF4344))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGTTRF "sgttrf_")
  ((N :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (DU :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGTTRF (N DL D DU DU2 IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTTRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4345 ':INT32)
                              (INFO-REF4351 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4345 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4351 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF4346 DL)
                                            (D-REF4347 D)
                                            (DU-REF4348 DU)
                                            (DU2-REF4349 DU2)
                                            (IPIV-REF4350 IPIV))
      (%%SGTTRF N-REF4345 DL-REF4346 D-REF4347 DU-REF4348 DU2-REF4349
       IPIV-REF4350 INFO-REF4351))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHBGV "zhbgv_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHBGV
    (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBGV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4354 ':INT32) (KA-REF4355 ':INT32)
                              (KB-REF4356 ':INT32)
                              (LDAB-REF4358 ':INT32)
                              (LDBB-REF4360 ':INT32)
                              (LDZ-REF4363 ':INT32)
                              (INFO-REF4366 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4354 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF4355 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF4356 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4358 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF4360 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4363 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4366 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4357 AB)
                                            (BB-REF4359 BB)
                                            (W-REF4361 W)
                                            (Z-REF4362 Z)
                                            (WORK-REF4364 WORK)
                                            (RWORK-REF4365 RWORK))
      (%%ZHBGV JOBZ UPLO N-REF4354 KA-REF4355 KB-REF4356 AB-REF4357
       LDAB-REF4358 BB-REF4359 LDBB-REF4360 W-REF4361 Z-REF4362
       LDZ-REF4363 WORK-REF4364 RWORK-REF4365 INFO-REF4366))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STRCON "strcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STRCON
    (NORM UPLO DIAG N A LDA RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4370 ':INT32) (LDA-REF4372 ':INT32)
                              (RCOND-REF4373 ':FLOAT)
                              (INFO-REF4376 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4370 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4372 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4373 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4376 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4371 A)
                                            (WORK-REF4374 WORK)
                                            (IWORK-REF4375 IWORK))
      (%%STRCON NORM UPLO DIAG N-REF4370 A-REF4371 LDA-REF4372
       RCOND-REF4373 WORK-REF4374 IWORK-REF4375 INFO-REF4376))))

(COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%SLANEG %SLANEG %%SLASY2
                      %SLASY2 %%DPOTRS %DPOTRS %%ZLA_SYAMV %ZLA_SYAMV
                      %%CLARF %CLARF %%DGERQF %DGERQF %%ZGBSVXX
                      %ZGBSVXX %%CLASYF_RK %CLASYF_RK %%DORBDB %DORBDB
                      %%ZHPSVX %ZHPSVX %%DLASWLQ %DLASWLQ %%ILASLR
                      %ILASLR %%DLA_SYAMV %DLA_SYAMV %%SLA_GBAMV
                      %SLA_GBAMV %%ZTFTTR %ZTFTTR %%SSTEVX %SSTEVX
                      %%DLA_GBAMV %DLA_GBAMV %%DLAPMT %DLAPMT %%SLAPY2
                      %SLAPY2 %%DTPMQRT %DTPMQRT %%CUNGQR %CUNGQR
                      %%CSYRFS %CSYRFS %%DSYGV_2STAGE %DSYGV_2STAGE
                      %%DSTERF %DSTERF %%DGELQF %DGELQF %%SPBRFS
                      %SPBRFS %%ZGGES3 %ZGGES3 %%ZLA_GBRFSX_EXTENDED
                      %ZLA_GBRFSX_EXTENDED %%CSYTRF_RK %CSYTRF_RK
                      %%DLABRD %DLABRD %%SLASQ6 %SLASQ6 %%SLALSA
                      %SLALSA %%ZHBEV_2STAGE %ZHBEV_2STAGE %%STPMQRT
                      %STPMQRT %%CLASWP %CLASWP %%DSYTRD %DSYTRD
                      %%ZLARF %ZLARF %%CUNMRZ %CUNMRZ %%ZPBTRS %ZPBTRS
                      %%ZLA_WWADDW %ZLA_WWADDW %%ZUNCSD2BY1 %ZUNCSD2BY1
                      %%ZSYSV_ROOK %ZSYSV_ROOK %%SSPCON %SSPCON
                      %%DLASD1 %DLASD1 %%ZGEQR %ZGEQR %%ZSYTRI2X
                      %ZSYTRI2X %%ZUNBDB5 %ZUNBDB5
                      %%DLA_GBRFSX_EXTENDED %DLA_GBRFSX_EXTENDED
                      %%SGECON %SGECON %%ZSYTRI_ROOK %ZSYTRI_ROOK
                      %%DPPSVX %DPPSVX %%ZUPMTR %ZUPMTR %%DLAQP2
                      %DLAQP2 %%SGGLSE %SGGLSE %%CPPSVX %CPPSVX
                      %%DGSVJ0 %DGSVJ0 %%CGEEQU %CGEEQU %%ZLASSQ
                      %ZLASSQ %%STGSYL %STGSYL %%DSYCONVF %DSYCONVF
                      %%DSBEVD %DSBEVD %%ZHERFSX %ZHERFSX %%ZTGEX2
                      %ZTGEX2 %%SLAG2 %SLAG2 %%CHESVX %CHESVX
                      %%SSYEVR_2STAGE %SSYEVR_2STAGE %%DPTRFS %DPTRFS
                      %%DSYGST %DSYGST %%ZPPSV %ZPPSV %%DLAIC1 %DLAIC1
                      %%SLASWP %SLASWP %%CLA_LIN_BERR %CLA_LIN_BERR
                      %%ILAUPLO %ILAUPLO %%SSBEVD_2STAGE %SSBEVD_2STAGE
                      %%ZGETRF %ZGETRF %%SPPTRF %SPPTRF %%ZSYTRS_3
                      %ZSYTRS_3 %%CPOEQU %CPOEQU %%ZLATRD %ZLATRD
                      %%ZGBEQUB %ZGBEQUB %%DLANSP %DLANSP %%ZLAQHP
                      %ZLAQHP %%CLA_PORCOND_X %CLA_PORCOND_X
                      %%DSYTF2_ROOK %DSYTF2_ROOK %%CSYTRS_AA_2STAGE
                      %CSYTRS_AA_2STAGE %%DTRTI2 %DTRTI2 %%CHEGVD
                      %CHEGVD %%STRSEN %STRSEN %%CHB2ST_KERNELS
                      %CHB2ST_KERNELS %%STFTRI %STFTRI %%SGESVD %SGESVD
                      %%SGTTS2 %SGTTS2 %%ZTFTTP %ZTFTTP %%CUNM2R
                      %CUNM2R %%ZGBTF2 %ZGBTF2 %%CSYCONV %CSYCONV
                      %%SSYCON_3 %SSYCON_3 %%ZPOTRF %ZPOTRF %%CHETRI_3
                      %CHETRI_3 %%SLANTR %SLANTR %%DORGHR %DORGHR
                      %%SGBBRD %SGBBRD %%DGEBAL %DGEBAL %%ZTREVC
                      %ZTREVC %%CTGSJA %CTGSJA %%DLANTP %DLANTP
                      %%DGEJSV %DGEJSV %%CUNMRQ %CUNMRQ %%SGSVJ1
                      %SGSVJ1 %%CPBSTF %CPBSTF %%CTGSNA %CTGSNA
                      %%CGBRFSX %CGBRFSX %%SSYTRI_3X %SSYTRI_3X
                      %%DORMRQ %DORMRQ %%SSBEV %SSBEV %%CGEJSV %CGEJSV
                      %%DLALSA %DLALSA %%SPTTRS %SPTTRS %%DTGSJA
                      %DTGSJA %%ZLAHQR %ZLAHQR %%DSTEIN %DSTEIN
                      %%ZGGBAL %ZGGBAL %%SLANTB %SLANTB %%DTRTTP
                      %DTRTTP %%CLABRD %CLABRD %%DSYCONV %DSYCONV
                      %%ZGEEQUB %ZGEEQUB %%SLASYF_AA %SLASYF_AA
                      %%DGERFSX %DGERFSX %%SGTSV %SGTSV %%SORMR3
                      %SORMR3 %%ZLAUNHR_COL_GETRFNP
                      %ZLAUNHR_COL_GETRFNP %%DLADIV %DLADIV %%CSYTRF_AA
                      %CSYTRF_AA %%SLASD3 %SLASD3 %%SLASSQ %SLASSQ
                      %%ZUNGL2 %ZUNGL2 %%DLASD8 %DLASD8 %%ZSTEQR
                      %ZSTEQR %%CUNMQR %CUNMQR %%SPFTRS %SPFTRS
                      %%ZLA_PORCOND_X %ZLA_PORCOND_X %%ZLAMSWLQ
                      %ZLAMSWLQ %%CTBRFS %CTBRFS %%ZUNMHR %ZUNMHR
                      %%CSYTRI2X %CSYTRI2X %%DLAED1 %DLAED1 %%DLARRA
                      %DLARRA %%ZGBRFSX %ZGBRFSX %%SGEQRT3 %SGEQRT3
                      %%DPTSVX %DPTSVX %%SLAGTS %SLAGTS %%ZBBCSD
                      %ZBBCSD %%DLARZT %DLARZT %%ZTREVC3 %ZTREVC3
                      %%CGEQRT3 %CGEQRT3 %%ZPOTF2 %ZPOTF2 %%CHERFS
                      %CHERFS %%ZSYCON_3 %ZSYCON_3 %%CHPTRI %CHPTRI
                      %%ZHBEVD %ZHBEVD %%CGTSVX %CGTSVX %%CHETF2_ROOK
                      %CHETF2_ROOK %%SLAIC1 %SLAIC1 %%DLASDA %DLASDA
                      %%ZHETRF_RK %ZHETRF_RK %%ZPBSV %ZPBSV %%ZGBSVX
                      %ZGBSVX %%CHEEVX %CHEEVX %%CLA_PORCOND_C
                      %CLA_PORCOND_C %%CGBTRF %CGBTRF %%SPBCON %SPBCON
                      %%CHETRS2 %CHETRS2 %%SSYGV %SSYGV %%CPOTRS
                      %CPOTRS %%SSBTRD %SSBTRD %%ZLASYF_ROOK
                      %ZLASYF_ROOK %%DSYTRS_AA %DSYTRS_AA %%DSYTRS
                      %DSYTRS %%CGGRQF %CGGRQF %%DLALS0 %DLALS0
                      %%SLASD7 %SLASD7 %%DTRSYL %DTRSYL %%SSYGVX
                      %SSYGVX %%CSPR %CSPR %%CHPTRF %CHPTRF %%DGERQ2
                      %DGERQ2 %%CGEMQR %CGEMQR %%ZSPSVX %ZSPSVX
                      %%SSTEBZ %SSTEBZ %%SORCSD2BY1 %SORCSD2BY1
                      %%SSBGVX %SSBGVX %%SLARFX %SLARFX %%ZSYRFS
                      %ZSYRFS %%CLANGE %CLANGE %%SSYTRS_ROOK
                      %SSYTRS_ROOK %%ZPBSVX %ZPBSVX %%DGBTRS %DGBTRS
                      %%SLARTG %SLARTG %%CPOTF2 %CPOTF2 %%ZPSTRF
                      %ZPSTRF %%DGEQP3 %DGEQP3 %%SLAQGE %SLAQGE
                      %%ZUNG2L %ZUNG2L %%ZUNMRZ %ZUNMRZ %%SPOSV %SPOSV
                      %%SSYEVD_2STAGE %SSYEVD_2STAGE %%DGETF2 %DGETF2
                      %%SLARRA %SLARRA %%SLANV2 %SLANV2 %%SLAE2 %SLAE2
                      %%CSTEMR %CSTEMR %%DTPTRS %DTPTRS %%ZLARGV
                      %ZLARGV %%ZLALS0 %ZLALS0 %%CTREXC %CTREXC
                      %%SGGBAL %SGGBAL %%STPRFS %STPRFS %%CLANSB
                      %CLANSB %%SSPGST %SSPGST %%DORGBR %DORGBR
                      %%CPPTRS %CPPTRS %%SLA_GBRFSX_EXTENDED
                      %SLA_GBRFSX_EXTENDED %%ZPBEQU %ZPBEQU %%SLARTGP
                      %SLARTGP %%ZLAQSY %ZLAQSY %%ZTRSNA %ZTRSNA
                      %%ZGEBD2 %ZGEBD2 %%CLAGTM %CLAGTM %%CGELQT3
                      %CGELQT3 %%DSYEVR_2STAGE %DSYEVR_2STAGE %%ZHESVX
                      %ZHESVX %%SPOSVXX %SPOSVXX %%ZGELSS %ZGELSS
                      %%ILATRANS %ILATRANS %%CTFTTP %CTFTTP %%CPORFS
                      %CPORFS %%DLAEDA %DLAEDA %%CHPRFS %CHPRFS
                      %%SSYEQUB %SSYEQUB %%DGGBAL %DGGBAL %%STPQRT
                      %STPQRT %%ZGTSVX %ZGTSVX %%STBRFS %STBRFS
                      %%DSYTRI_3X %DSYTRI_3X %%SGTTRF %SGTTRF %%ZHBGV
                      %ZHBGV %%STRCON %STRCON))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS
  'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
  '(("SLANEG" "slaneg_" %%SLANEG %SLANEG)
    ("SLASY2" "slasy2_" %%SLASY2 %SLASY2)
    ("DPOTRS" "dpotrs_" %%DPOTRS %DPOTRS)
    ("ZLA_SYAMV" "zla_syamv_" %%ZLA_SYAMV %ZLA_SYAMV)
    ("CLARF" "clarf_" %%CLARF %CLARF)
    ("DGERQF" "dgerqf_" %%DGERQF %DGERQF)
    ("ZGBSVXX" "zgbsvxx_" %%ZGBSVXX %ZGBSVXX)
    ("CLASYF_RK" "clasyf_rk_" %%CLASYF_RK %CLASYF_RK)
    ("DORBDB" "dorbdb_" %%DORBDB %DORBDB)
    ("ZHPSVX" "zhpsvx_" %%ZHPSVX %ZHPSVX)
    ("DLASWLQ" "dlaswlq_" %%DLASWLQ %DLASWLQ)
    ("ILASLR" "ilaslr_" %%ILASLR %ILASLR)
    ("DLA_SYAMV" "dla_syamv_" %%DLA_SYAMV %DLA_SYAMV)
    ("SLA_GBAMV" "sla_gbamv_" %%SLA_GBAMV %SLA_GBAMV)
    ("ZTFTTR" "ztfttr_" %%ZTFTTR %ZTFTTR)
    ("SSTEVX" "sstevx_" %%SSTEVX %SSTEVX)
    ("DLA_GBAMV" "dla_gbamv_" %%DLA_GBAMV %DLA_GBAMV)
    ("DLAPMT" "dlapmt_" %%DLAPMT %DLAPMT)
    ("SLAPY2" "slapy2_" %%SLAPY2 %SLAPY2)
    ("DTPMQRT" "dtpmqrt_" %%DTPMQRT %DTPMQRT)
    ("CUNGQR" "cungqr_" %%CUNGQR %CUNGQR)
    ("CSYRFS" "csyrfs_" %%CSYRFS %CSYRFS)
    ("DSYGV_2STAGE" "dsygv_2stage_" %%DSYGV_2STAGE %DSYGV_2STAGE)
    ("DSTERF" "dsterf_" %%DSTERF %DSTERF)
    ("DGELQF" "dgelqf_" %%DGELQF %DGELQF)
    ("SPBRFS" "spbrfs_" %%SPBRFS %SPBRFS)
    ("ZGGES3" "zgges3_" %%ZGGES3 %ZGGES3)
    ("ZLA_GBRFSX_EXTENDED" "zla_gbrfsx_extended_" %%ZLA_GBRFSX_EXTENDED
     %ZLA_GBRFSX_EXTENDED)
    ("CSYTRF_RK" "csytrf_rk_" %%CSYTRF_RK %CSYTRF_RK)
    ("DLABRD" "dlabrd_" %%DLABRD %DLABRD)
    ("SLASQ6" "slasq6_" %%SLASQ6 %SLASQ6)
    ("SLALSA" "slalsa_" %%SLALSA %SLALSA)
    ("ZHBEV_2STAGE" "zhbev_2stage_" %%ZHBEV_2STAGE %ZHBEV_2STAGE)
    ("STPMQRT" "stpmqrt_" %%STPMQRT %STPMQRT)
    ("CLASWP" "claswp_" %%CLASWP %CLASWP)
    ("DSYTRD" "dsytrd_" %%DSYTRD %DSYTRD)
    ("ZLARF" "zlarf_" %%ZLARF %ZLARF)
    ("CUNMRZ" "cunmrz_" %%CUNMRZ %CUNMRZ)
    ("ZPBTRS" "zpbtrs_" %%ZPBTRS %ZPBTRS)
    ("ZLA_WWADDW" "zla_wwaddw_" %%ZLA_WWADDW %ZLA_WWADDW)
    ("ZUNCSD2BY1" "zuncsd2by1_" %%ZUNCSD2BY1 %ZUNCSD2BY1)
    ("ZSYSV_ROOK" "zsysv_rook_" %%ZSYSV_ROOK %ZSYSV_ROOK)
    ("SSPCON" "sspcon_" %%SSPCON %SSPCON)
    ("DLASD1" "dlasd1_" %%DLASD1 %DLASD1)
    ("ZGEQR" "zgeqr_" %%ZGEQR %ZGEQR)
    ("ZSYTRI2X" "zsytri2x_" %%ZSYTRI2X %ZSYTRI2X)
    ("ZUNBDB5" "zunbdb5_" %%ZUNBDB5 %ZUNBDB5)
    ("DLA_GBRFSX_EXTENDED" "dla_gbrfsx_extended_" %%DLA_GBRFSX_EXTENDED
     %DLA_GBRFSX_EXTENDED)
    ("SGECON" "sgecon_" %%SGECON %SGECON)
    ("ZSYTRI_ROOK" "zsytri_rook_" %%ZSYTRI_ROOK %ZSYTRI_ROOK)
    ("DPPSVX" "dppsvx_" %%DPPSVX %DPPSVX)
    ("ZUPMTR" "zupmtr_" %%ZUPMTR %ZUPMTR)
    ("DLAQP2" "dlaqp2_" %%DLAQP2 %DLAQP2)
    ("SGGLSE" "sgglse_" %%SGGLSE %SGGLSE)
    ("CPPSVX" "cppsvx_" %%CPPSVX %CPPSVX)
    ("DGSVJ0" "dgsvj0_" %%DGSVJ0 %DGSVJ0)
    ("CGEEQU" "cgeequ_" %%CGEEQU %CGEEQU)
    ("ZLASSQ" "zlassq_" %%ZLASSQ %ZLASSQ)
    ("STGSYL" "stgsyl_" %%STGSYL %STGSYL)
    ("DSYCONVF" "dsyconvf_" %%DSYCONVF %DSYCONVF)
    ("DSBEVD" "dsbevd_" %%DSBEVD %DSBEVD)
    ("ZHERFSX" "zherfsx_" %%ZHERFSX %ZHERFSX)
    ("ZTGEX2" "ztgex2_" %%ZTGEX2 %ZTGEX2)
    ("SLAG2" "slag2_" %%SLAG2 %SLAG2)
    ("CHESVX" "chesvx_" %%CHESVX %CHESVX)
    ("SSYEVR_2STAGE" "ssyevr_2stage_" %%SSYEVR_2STAGE %SSYEVR_2STAGE)
    ("DPTRFS" "dptrfs_" %%DPTRFS %DPTRFS)
    ("DSYGST" "dsygst_" %%DSYGST %DSYGST)
    ("ZPPSV" "zppsv_" %%ZPPSV %ZPPSV)
    ("DLAIC1" "dlaic1_" %%DLAIC1 %DLAIC1)
    ("SLASWP" "slaswp_" %%SLASWP %SLASWP)
    ("CLA_LIN_BERR" "cla_lin_berr_" %%CLA_LIN_BERR %CLA_LIN_BERR)
    ("ILAUPLO" "ilauplo_" %%ILAUPLO %ILAUPLO)
    ("SSBEVD_2STAGE" "ssbevd_2stage_" %%SSBEVD_2STAGE %SSBEVD_2STAGE)
    ("ZGETRF" "zgetrf_" %%ZGETRF %ZGETRF)
    ("SPPTRF" "spptrf_" %%SPPTRF %SPPTRF)
    ("ZSYTRS_3" "zsytrs_3_" %%ZSYTRS_3 %ZSYTRS_3)
    ("CPOEQU" "cpoequ_" %%CPOEQU %CPOEQU)
    ("ZLATRD" "zlatrd_" %%ZLATRD %ZLATRD)
    ("ZGBEQUB" "zgbequb_" %%ZGBEQUB %ZGBEQUB)
    ("DLANSP" "dlansp_" %%DLANSP %DLANSP)
    ("ZLAQHP" "zlaqhp_" %%ZLAQHP %ZLAQHP)
    ("CLA_PORCOND_X" "cla_porcond_x_" %%CLA_PORCOND_X %CLA_PORCOND_X)
    ("DSYTF2_ROOK" "dsytf2_rook_" %%DSYTF2_ROOK %DSYTF2_ROOK)
    ("CSYTRS_AA_2STAGE" "csytrs_aa_2stage_" %%CSYTRS_AA_2STAGE
     %CSYTRS_AA_2STAGE)
    ("DTRTI2" "dtrti2_" %%DTRTI2 %DTRTI2)
    ("CHEGVD" "chegvd_" %%CHEGVD %CHEGVD)
    ("STRSEN" "strsen_" %%STRSEN %STRSEN)
    ("CHB2ST_KERNELS" "chb2st_kernels_" %%CHB2ST_KERNELS
     %CHB2ST_KERNELS)
    ("STFTRI" "stftri_" %%STFTRI %STFTRI)
    ("SGESVD" "sgesvd_" %%SGESVD %SGESVD)
    ("SGTTS2" "sgtts2_" %%SGTTS2 %SGTTS2)
    ("ZTFTTP" "ztfttp_" %%ZTFTTP %ZTFTTP)
    ("CUNM2R" "cunm2r_" %%CUNM2R %CUNM2R)
    ("ZGBTF2" "zgbtf2_" %%ZGBTF2 %ZGBTF2)
    ("CSYCONV" "csyconv_" %%CSYCONV %CSYCONV)
    ("SSYCON_3" "ssycon_3_" %%SSYCON_3 %SSYCON_3)
    ("ZPOTRF" "zpotrf_" %%ZPOTRF %ZPOTRF)
    ("CHETRI_3" "chetri_3_" %%CHETRI_3 %CHETRI_3)
    ("SLANTR" "slantr_" %%SLANTR %SLANTR)
    ("DORGHR" "dorghr_" %%DORGHR %DORGHR)
    ("SGBBRD" "sgbbrd_" %%SGBBRD %SGBBRD)
    ("DGEBAL" "dgebal_" %%DGEBAL %DGEBAL)
    ("ZTREVC" "ztrevc_" %%ZTREVC %ZTREVC)
    ("CTGSJA" "ctgsja_" %%CTGSJA %CTGSJA)
    ("DLANTP" "dlantp_" %%DLANTP %DLANTP)
    ("DGEJSV" "dgejsv_" %%DGEJSV %DGEJSV)
    ("CUNMRQ" "cunmrq_" %%CUNMRQ %CUNMRQ)
    ("SGSVJ1" "sgsvj1_" %%SGSVJ1 %SGSVJ1)
    ("CPBSTF" "cpbstf_" %%CPBSTF %CPBSTF)
    ("CTGSNA" "ctgsna_" %%CTGSNA %CTGSNA)
    ("CGBRFSX" "cgbrfsx_" %%CGBRFSX %CGBRFSX)
    ("SSYTRI_3X" "ssytri_3x_" %%SSYTRI_3X %SSYTRI_3X)
    ("DORMRQ" "dormrq_" %%DORMRQ %DORMRQ)
    ("SSBEV" "ssbev_" %%SSBEV %SSBEV)
    ("CGEJSV" "cgejsv_" %%CGEJSV %CGEJSV)
    ("DLALSA" "dlalsa_" %%DLALSA %DLALSA)
    ("SPTTRS" "spttrs_" %%SPTTRS %SPTTRS)
    ("DTGSJA" "dtgsja_" %%DTGSJA %DTGSJA)
    ("ZLAHQR" "zlahqr_" %%ZLAHQR %ZLAHQR)
    ("DSTEIN" "dstein_" %%DSTEIN %DSTEIN)
    ("ZGGBAL" "zggbal_" %%ZGGBAL %ZGGBAL)
    ("SLANTB" "slantb_" %%SLANTB %SLANTB)
    ("DTRTTP" "dtrttp_" %%DTRTTP %DTRTTP)
    ("CLABRD" "clabrd_" %%CLABRD %CLABRD)
    ("DSYCONV" "dsyconv_" %%DSYCONV %DSYCONV)
    ("ZGEEQUB" "zgeequb_" %%ZGEEQUB %ZGEEQUB)
    ("SLASYF_AA" "slasyf_aa_" %%SLASYF_AA %SLASYF_AA)
    ("DGERFSX" "dgerfsx_" %%DGERFSX %DGERFSX)
    ("SGTSV" "sgtsv_" %%SGTSV %SGTSV)
    ("SORMR3" "sormr3_" %%SORMR3 %SORMR3)
    ("ZLAUNHR_COL_GETRFNP" "zlaunhr_col_getrfnp_" %%ZLAUNHR_COL_GETRFNP
     %ZLAUNHR_COL_GETRFNP)
    ("DLADIV" "dladiv_" %%DLADIV %DLADIV)
    ("CSYTRF_AA" "csytrf_aa_" %%CSYTRF_AA %CSYTRF_AA)
    ("SLASD3" "slasd3_" %%SLASD3 %SLASD3)
    ("SLASSQ" "slassq_" %%SLASSQ %SLASSQ)
    ("ZUNGL2" "zungl2_" %%ZUNGL2 %ZUNGL2)
    ("DLASD8" "dlasd8_" %%DLASD8 %DLASD8)
    ("ZSTEQR" "zsteqr_" %%ZSTEQR %ZSTEQR)
    ("CUNMQR" "cunmqr_" %%CUNMQR %CUNMQR)
    ("SPFTRS" "spftrs_" %%SPFTRS %SPFTRS)
    ("ZLA_PORCOND_X" "zla_porcond_x_" %%ZLA_PORCOND_X %ZLA_PORCOND_X)
    ("ZLAMSWLQ" "zlamswlq_" %%ZLAMSWLQ %ZLAMSWLQ)
    ("CTBRFS" "ctbrfs_" %%CTBRFS %CTBRFS)
    ("ZUNMHR" "zunmhr_" %%ZUNMHR %ZUNMHR)
    ("CSYTRI2X" "csytri2x_" %%CSYTRI2X %CSYTRI2X)
    ("DLAED1" "dlaed1_" %%DLAED1 %DLAED1)
    ("DLARRA" "dlarra_" %%DLARRA %DLARRA)
    ("ZGBRFSX" "zgbrfsx_" %%ZGBRFSX %ZGBRFSX)
    ("SGEQRT3" "sgeqrt3_" %%SGEQRT3 %SGEQRT3)
    ("DPTSVX" "dptsvx_" %%DPTSVX %DPTSVX)
    ("SLAGTS" "slagts_" %%SLAGTS %SLAGTS)
    ("ZBBCSD" "zbbcsd_" %%ZBBCSD %ZBBCSD)
    ("DLARZT" "dlarzt_" %%DLARZT %DLARZT)
    ("ZTREVC3" "ztrevc3_" %%ZTREVC3 %ZTREVC3)
    ("CGEQRT3" "cgeqrt3_" %%CGEQRT3 %CGEQRT3)
    ("ZPOTF2" "zpotf2_" %%ZPOTF2 %ZPOTF2)
    ("CHERFS" "cherfs_" %%CHERFS %CHERFS)
    ("ZSYCON_3" "zsycon_3_" %%ZSYCON_3 %ZSYCON_3)
    ("CHPTRI" "chptri_" %%CHPTRI %CHPTRI)
    ("ZHBEVD" "zhbevd_" %%ZHBEVD %ZHBEVD)
    ("CGTSVX" "cgtsvx_" %%CGTSVX %CGTSVX)
    ("CHETF2_ROOK" "chetf2_rook_" %%CHETF2_ROOK %CHETF2_ROOK)
    ("SLAIC1" "slaic1_" %%SLAIC1 %SLAIC1)
    ("DLASDA" "dlasda_" %%DLASDA %DLASDA)
    ("ZHETRF_RK" "zhetrf_rk_" %%ZHETRF_RK %ZHETRF_RK)
    ("ZPBSV" "zpbsv_" %%ZPBSV %ZPBSV)
    ("ZGBSVX" "zgbsvx_" %%ZGBSVX %ZGBSVX)
    ("CHEEVX" "cheevx_" %%CHEEVX %CHEEVX)
    ("CLA_PORCOND_C" "cla_porcond_c_" %%CLA_PORCOND_C %CLA_PORCOND_C)
    ("CGBTRF" "cgbtrf_" %%CGBTRF %CGBTRF)
    ("SPBCON" "spbcon_" %%SPBCON %SPBCON)
    ("CHETRS2" "chetrs2_" %%CHETRS2 %CHETRS2)
    ("SSYGV" "ssygv_" %%SSYGV %SSYGV)
    ("CPOTRS" "cpotrs_" %%CPOTRS %CPOTRS)
    ("SSBTRD" "ssbtrd_" %%SSBTRD %SSBTRD)
    ("ZLASYF_ROOK" "zlasyf_rook_" %%ZLASYF_ROOK %ZLASYF_ROOK)
    ("DSYTRS_AA" "dsytrs_aa_" %%DSYTRS_AA %DSYTRS_AA)
    ("DSYTRS" "dsytrs_" %%DSYTRS %DSYTRS)
    ("CGGRQF" "cggrqf_" %%CGGRQF %CGGRQF)
    ("DLALS0" "dlals0_" %%DLALS0 %DLALS0)
    ("SLASD7" "slasd7_" %%SLASD7 %SLASD7)
    ("DTRSYL" "dtrsyl_" %%DTRSYL %DTRSYL)
    ("SSYGVX" "ssygvx_" %%SSYGVX %SSYGVX) ("CSPR" "cspr_" %%CSPR %CSPR)
    ("CHPTRF" "chptrf_" %%CHPTRF %CHPTRF)
    ("DGERQ2" "dgerq2_" %%DGERQ2 %DGERQ2)
    ("CGEMQR" "cgemqr_" %%CGEMQR %CGEMQR)
    ("ZSPSVX" "zspsvx_" %%ZSPSVX %ZSPSVX)
    ("SSTEBZ" "sstebz_" %%SSTEBZ %SSTEBZ)
    ("SORCSD2BY1" "sorcsd2by1_" %%SORCSD2BY1 %SORCSD2BY1)
    ("SSBGVX" "ssbgvx_" %%SSBGVX %SSBGVX)
    ("SLARFX" "slarfx_" %%SLARFX %SLARFX)
    ("ZSYRFS" "zsyrfs_" %%ZSYRFS %ZSYRFS)
    ("CLANGE" "clange_" %%CLANGE %CLANGE)
    ("SSYTRS_ROOK" "ssytrs_rook_" %%SSYTRS_ROOK %SSYTRS_ROOK)
    ("ZPBSVX" "zpbsvx_" %%ZPBSVX %ZPBSVX)
    ("DGBTRS" "dgbtrs_" %%DGBTRS %DGBTRS)
    ("SLARTG" "slartg_" %%SLARTG %SLARTG)
    ("CPOTF2" "cpotf2_" %%CPOTF2 %CPOTF2)
    ("ZPSTRF" "zpstrf_" %%ZPSTRF %ZPSTRF)
    ("DGEQP3" "dgeqp3_" %%DGEQP3 %DGEQP3)
    ("SLAQGE" "slaqge_" %%SLAQGE %SLAQGE)
    ("ZUNG2L" "zung2l_" %%ZUNG2L %ZUNG2L)
    ("ZUNMRZ" "zunmrz_" %%ZUNMRZ %ZUNMRZ)
    ("SPOSV" "sposv_" %%SPOSV %SPOSV)
    ("SSYEVD_2STAGE" "ssyevd_2stage_" %%SSYEVD_2STAGE %SSYEVD_2STAGE)
    ("DGETF2" "dgetf2_" %%DGETF2 %DGETF2)
    ("SLARRA" "slarra_" %%SLARRA %SLARRA)
    ("SLANV2" "slanv2_" %%SLANV2 %SLANV2)
    ("SLAE2" "slae2_" %%SLAE2 %SLAE2)
    ("CSTEMR" "cstemr_" %%CSTEMR %CSTEMR)
    ("DTPTRS" "dtptrs_" %%DTPTRS %DTPTRS)
    ("ZLARGV" "zlargv_" %%ZLARGV %ZLARGV)
    ("ZLALS0" "zlals0_" %%ZLALS0 %ZLALS0)
    ("CTREXC" "ctrexc_" %%CTREXC %CTREXC)
    ("SGGBAL" "sggbal_" %%SGGBAL %SGGBAL)
    ("STPRFS" "stprfs_" %%STPRFS %STPRFS)
    ("CLANSB" "clansb_" %%CLANSB %CLANSB)
    ("SSPGST" "sspgst_" %%SSPGST %SSPGST)
    ("DORGBR" "dorgbr_" %%DORGBR %DORGBR)
    ("CPPTRS" "cpptrs_" %%CPPTRS %CPPTRS)
    ("SLA_GBRFSX_EXTENDED" "sla_gbrfsx_extended_" %%SLA_GBRFSX_EXTENDED
     %SLA_GBRFSX_EXTENDED)
    ("ZPBEQU" "zpbequ_" %%ZPBEQU %ZPBEQU)
    ("SLARTGP" "slartgp_" %%SLARTGP %SLARTGP)
    ("ZLAQSY" "zlaqsy_" %%ZLAQSY %ZLAQSY)
    ("ZTRSNA" "ztrsna_" %%ZTRSNA %ZTRSNA)
    ("ZGEBD2" "zgebd2_" %%ZGEBD2 %ZGEBD2)
    ("CLAGTM" "clagtm_" %%CLAGTM %CLAGTM)
    ("CGELQT3" "cgelqt3_" %%CGELQT3 %CGELQT3)
    ("DSYEVR_2STAGE" "dsyevr_2stage_" %%DSYEVR_2STAGE %DSYEVR_2STAGE)
    ("ZHESVX" "zhesvx_" %%ZHESVX %ZHESVX)
    ("SPOSVXX" "sposvxx_" %%SPOSVXX %SPOSVXX)
    ("ZGELSS" "zgelss_" %%ZGELSS %ZGELSS)
    ("ILATRANS" "ilatrans_" %%ILATRANS %ILATRANS)
    ("CTFTTP" "ctfttp_" %%CTFTTP %CTFTTP)
    ("CPORFS" "cporfs_" %%CPORFS %CPORFS)
    ("DLAEDA" "dlaeda_" %%DLAEDA %DLAEDA)
    ("CHPRFS" "chprfs_" %%CHPRFS %CHPRFS)
    ("SSYEQUB" "ssyequb_" %%SSYEQUB %SSYEQUB)
    ("DGGBAL" "dggbal_" %%DGGBAL %DGGBAL)
    ("STPQRT" "stpqrt_" %%STPQRT %STPQRT)
    ("ZGTSVX" "zgtsvx_" %%ZGTSVX %ZGTSVX)
    ("STBRFS" "stbrfs_" %%STBRFS %STBRFS)
    ("DSYTRI_3X" "dsytri_3x_" %%DSYTRI_3X %DSYTRI_3X)
    ("SGTTRF" "sgttrf_" %%SGTTRF %SGTTRF)
    ("ZHBGV" "zhbgv_" %%ZHBGV %ZHBGV)
    ("STRCON" "strcon_" %%STRCON %STRCON)))

(COMMON-LISP:EXPORT '(%SLANEG %SLASY2 %DPOTRS %ZLA_SYAMV %CLARF %DGERQF
                      %ZGBSVXX %CLASYF_RK %DORBDB %ZHPSVX %DLASWLQ
                      %ILASLR %DLA_SYAMV %SLA_GBAMV %ZTFTTR %SSTEVX
                      %DLA_GBAMV %DLAPMT %SLAPY2 %DTPMQRT %CUNGQR
                      %CSYRFS %DSYGV_2STAGE %DSTERF %DGELQF %SPBRFS
                      %ZGGES3 %ZLA_GBRFSX_EXTENDED %CSYTRF_RK %DLABRD
                      %SLASQ6 %SLALSA %ZHBEV_2STAGE %STPMQRT %CLASWP
                      %DSYTRD %ZLARF %CUNMRZ %ZPBTRS %ZLA_WWADDW
                      %ZUNCSD2BY1 %ZSYSV_ROOK %SSPCON %DLASD1 %ZGEQR
                      %ZSYTRI2X %ZUNBDB5 %DLA_GBRFSX_EXTENDED %SGECON
                      %ZSYTRI_ROOK %DPPSVX %ZUPMTR %DLAQP2 %SGGLSE
                      %CPPSVX %DGSVJ0 %CGEEQU %ZLASSQ %STGSYL %DSYCONVF
                      %DSBEVD %ZHERFSX %ZTGEX2 %SLAG2 %CHESVX
                      %SSYEVR_2STAGE %DPTRFS %DSYGST %ZPPSV %DLAIC1
                      %SLASWP %CLA_LIN_BERR %ILAUPLO %SSBEVD_2STAGE
                      %ZGETRF %SPPTRF %ZSYTRS_3 %CPOEQU %ZLATRD
                      %ZGBEQUB %DLANSP %ZLAQHP %CLA_PORCOND_X
                      %DSYTF2_ROOK %CSYTRS_AA_2STAGE %DTRTI2 %CHEGVD
                      %STRSEN %CHB2ST_KERNELS %STFTRI %SGESVD %SGTTS2
                      %ZTFTTP %CUNM2R %ZGBTF2 %CSYCONV %SSYCON_3
                      %ZPOTRF %CHETRI_3 %SLANTR %DORGHR %SGBBRD %DGEBAL
                      %ZTREVC %CTGSJA %DLANTP %DGEJSV %CUNMRQ %SGSVJ1
                      %CPBSTF %CTGSNA %CGBRFSX %SSYTRI_3X %DORMRQ
                      %SSBEV %CGEJSV %DLALSA %SPTTRS %DTGSJA %ZLAHQR
                      %DSTEIN %ZGGBAL %SLANTB %DTRTTP %CLABRD %DSYCONV
                      %ZGEEQUB %SLASYF_AA %DGERFSX %SGTSV %SORMR3
                      %ZLAUNHR_COL_GETRFNP %DLADIV %CSYTRF_AA %SLASD3
                      %SLASSQ %ZUNGL2 %DLASD8 %ZSTEQR %CUNMQR %SPFTRS
                      %ZLA_PORCOND_X %ZLAMSWLQ %CTBRFS %ZUNMHR
                      %CSYTRI2X %DLAED1 %DLARRA %ZGBRFSX %SGEQRT3
                      %DPTSVX %SLAGTS %ZBBCSD %DLARZT %ZTREVC3 %CGEQRT3
                      %ZPOTF2 %CHERFS %ZSYCON_3 %CHPTRI %ZHBEVD %CGTSVX
                      %CHETF2_ROOK %SLAIC1 %DLASDA %ZHETRF_RK %ZPBSV
                      %ZGBSVX %CHEEVX %CLA_PORCOND_C %CGBTRF %SPBCON
                      %CHETRS2 %SSYGV %CPOTRS %SSBTRD %ZLASYF_ROOK
                      %DSYTRS_AA %DSYTRS %CGGRQF %DLALS0 %SLASD7
                      %DTRSYL %SSYGVX %CSPR %CHPTRF %DGERQ2 %CGEMQR
                      %ZSPSVX %SSTEBZ %SORCSD2BY1 %SSBGVX %SLARFX
                      %ZSYRFS %CLANGE %SSYTRS_ROOK %ZPBSVX %DGBTRS
                      %SLARTG %CPOTF2 %ZPSTRF %DGEQP3 %SLAQGE %ZUNG2L
                      %ZUNMRZ %SPOSV %SSYEVD_2STAGE %DGETF2 %SLARRA
                      %SLANV2 %SLAE2 %CSTEMR %DTPTRS %ZLARGV %ZLALS0
                      %CTREXC %SGGBAL %STPRFS %CLANSB %SSPGST %DORGBR
                      %CPPTRS %SLA_GBRFSX_EXTENDED %ZPBEQU %SLARTGP
                      %ZLAQSY %ZTRSNA %ZGEBD2 %CLAGTM %CGELQT3
                      %DSYEVR_2STAGE %ZHESVX %SPOSVXX %ZGELSS %ILATRANS
                      %CTFTTP %CPORFS %DLAEDA %CHPRFS %SSYEQUB %DGGBAL
                      %STPQRT %ZGTSVX %STBRFS %DSYTRI_3X %SGTTRF %ZHBGV
                      %STRCON)
                    '#:MAGICL.LAPACK-CFFI)

;;; End of file.
